36 lines
		
	
	
		
			1.0 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			36 lines
		
	
	
		
			1.0 KiB
		
	
	
	
		
			Factor
		
	
	
| USING: command-line namespaces tools.test ;
 | |
| 
 | |
| { "factor" f { "a" "b" "c" } } [
 | |
|     { "factor" "-run=test-voc" "a" "b" "c" } parse-command-line
 | |
|     executable get script get command-line get
 | |
| ] unit-test
 | |
| 
 | |
| { "factor" f { "-a" "b" "c" } } [
 | |
|     { "factor" "-run=test-voc" "-a" "b" "c" } parse-command-line
 | |
|     executable get script get command-line get
 | |
| ] unit-test
 | |
| 
 | |
| { "factor" f { "a" "-b" "c" } } [
 | |
|     { "factor" "-run=test-voc" "a" "-b" "c" } parse-command-line
 | |
|     executable get script get command-line get
 | |
| ] unit-test
 | |
| 
 | |
| { "factor" f { "a" "b" "-c" } } [
 | |
|     { "factor" "-run=test-voc" "a" "b" "-c" } parse-command-line
 | |
|     executable get script get command-line get
 | |
| ] unit-test
 | |
| 
 | |
| { "factor" "a" { "b" "c" } } [
 | |
|     { "factor" "a" "b" "c" } parse-command-line
 | |
|     executable get script get command-line get
 | |
| ] unit-test
 | |
| 
 | |
| { "factor" "a" { "b" "c" } } [
 | |
|     { "factor" "-foo" "a" "b" "c" } parse-command-line
 | |
|     executable get script get command-line get
 | |
| ] unit-test
 | |
| 
 | |
| { "a:b:c" } [ { "factor" "-roots=a:b:c" } parse-command-line
 | |
|     "roots" get-global
 | |
| ] unit-test
 |