2008-07-09 20:25:24 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								IN: tr.tests
							 | 
						
					
						
							
								
									
										
										
										
											2009-01-08 20:07:46 -05:00
										 
									 
								 
							 | 
							
								
									
										
									
								
							 | 
							
								
							 | 
							
							
								USING: tr tools.test ascii ;
							 | 
						
					
						
							
								
									
										
										
										
											2008-07-09 20:25:24 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								TR: tr-test ch>upper "ABC" "XYZ" ;
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								[ "XXYY" ] [ "aabb" tr-test ] unit-test
							 | 
						
					
						
							| 
								
							 | 
							
								
							 | 
							
								
							 | 
							
							
								[ "XXYY" ] [ "AABB" tr-test ] unit-test
							 | 
						
					
						
							
								
									
										
										
										
											2008-07-09 21:42:59 -04:00
										 
									 
								 
							 | 
							
								
							 | 
							
								
							 | 
							
							
								[ { 12345 } ] [ { 12345 } tr-test ] unit-test
							 |