| 
									
										
										
										
											2008-02-01 17:02:02 -05:00
										 |  |  | USING: ascii tools.test sequences kernel math ;
 | 
					
						
							| 
									
										
										
										
											2008-04-26 00:17:08 -04:00
										 |  |  | IN: ascii.tests | 
					
						
							| 
									
										
										
										
											2008-02-01 17:02:02 -05:00
										 |  |  | 
 | 
					
						
							|  |  |  | [ t ] [ CHAR: a letter? ] unit-test | 
					
						
							|  |  |  | [ f ] [ CHAR: A letter? ] unit-test | 
					
						
							|  |  |  | [ f ] [ CHAR: a LETTER? ] unit-test | 
					
						
							|  |  |  | [ t ] [ CHAR: A LETTER? ] unit-test | 
					
						
							|  |  |  | [ t ] [ CHAR: 0 digit? ] unit-test | 
					
						
							|  |  |  | [ f ] [ CHAR: x digit? ] unit-test | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | [ 4 ] [ | 
					
						
							|  |  |  |     0 "There are Four Upper Case characters" | 
					
						
							| 
									
										
										
										
											2009-08-13 20:21:44 -04:00
										 |  |  |     [ LETTER? [ 1 + ] when ] each
 | 
					
						
							| 
									
										
										
										
											2008-02-01 17:02:02 -05:00
										 |  |  | ] unit-test | 
					
						
							| 
									
										
										
										
											2009-01-08 20:07:46 -05:00
										 |  |  | 
 | 
					
						
							|  |  |  | [ t f ] [ CHAR: \s ascii? 400 ascii? ] unit-test | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | [ "HELLO HOW ARE YOU?" ] [ "hellO hOw arE YOU?" >upper ] unit-test | 
					
						
							|  |  |  | [ "i'm good thx bai" ] [ "I'm Good THX bai" >lower ] unit-test |