| 
									
										
										
										
											2010-02-20 23:00:48 -05:00
										 |  |  | USING: simple-tokenizer tools.test ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | [ "" tokenize ] must-fail | 
					
						
							|  |  |  | [ "   " tokenize ] must-fail | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | { V{ "a" } } [ "a" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc" } } [ "abc" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc" } } [ "abc   " tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc" } } [ "   abc" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc" "def" } } [ "abc def" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc def" } } [ "abc\\ def" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc\\" "def" } } [ "abc\\\\ def" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc\\ def" } } [ "\"abc\\\\ def\"" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc\\ def" } } [ "  \"abc\\\\ def\"" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc\\ def" "hey" } } [ "\"abc\\\\ def\" hey" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "abc def" "hey" } } [ "\"abc def\" \"hey\"" tokenize ] unit-test | 
					
						
							| 
									
										
										
										
											2010-02-20 23:00:48 -05:00
										 |  |  | [ "\"abc def\" \"hey" tokenize ] must-fail | 
					
						
							|  |  |  | [ "\"abc def" tokenize ] must-fail | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | { V{ "abc def" "h\"ey" } } [ "\"abc def\" \"h\\\"ey\"  " tokenize ] unit-test | 
					
						
							| 
									
										
										
										
											2010-02-20 23:00:48 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-02-20 23:00:48 -05:00
										 |  |  |     V{ | 
					
						
							|  |  |  |         "Hello world.app/Contents/MacOS/hello-ui" | 
					
						
							|  |  |  |         "-i=boot.macosx-ppc.image" | 
					
						
							|  |  |  |         "-include= math compiler ui" | 
					
						
							|  |  |  |         "-deploy-vocab=hello-ui" | 
					
						
							|  |  |  |         "-output-image=Hello world.app/Contents/Resources/hello-ui.image" | 
					
						
							|  |  |  |         "-no-stack-traces" | 
					
						
							|  |  |  |         "-no-user-init" | 
					
						
							|  |  |  |     } | 
					
						
							| 
									
										
										
										
											2015-07-02 20:28:17 -04:00
										 |  |  | } [ | 
					
						
							| 
									
										
										
										
											2010-02-20 23:00:48 -05:00
										 |  |  |     "\"Hello world.app/Contents/MacOS/hello-ui\" -i=boot.macosx-ppc.image \"-include= math compiler ui\" -deploy-vocab=hello-ui \"-output-image=Hello world.app/Contents/Resources/hello-ui.image\" -no-stack-traces -no-user-init" tokenize | 
					
						
							|  |  |  | ] unit-test | 
					
						
							| 
									
										
										
										
											2015-04-19 23:47:55 -04:00
										 |  |  | 
 | 
					
						
							|  |  |  | { V{ "ls" "-l" } } [ "ls -l" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "ls" "-l" } } [ "ls -l\n" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "ls" "-l" } } [ "\nls -l" tokenize ] unit-test | 
					
						
							|  |  |  | { V{ "ls" "-l" } } [ "\nls -l\n" tokenize ] unit-test |