33 lines
779 B
Factor
33 lines
779 B
Factor
|
USING: namespaces splitting tools.test ;
|
||
|
|
IN: command-line
|
||
|
|
|
||
|
|
{ f { "a" "b" "c" } } [
|
||
|
|
{ "-run=test-voc" "a" "b" "c" } parse-command-line
|
||
|
|
script get command-line get
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ f { "-a" "b" "c" } } [
|
||
|
|
{ "-run=test-voc" "-a" "b" "c" } parse-command-line
|
||
|
|
script get command-line get
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ f { "a" "-b" "c" } } [
|
||
|
|
{ "-run=test-voc" "a" "-b" "c" } parse-command-line
|
||
|
|
script get command-line get
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ f { "a" "b" "-c" } } [
|
||
|
|
{ "-run=test-voc" "a" "b" "-c" } parse-command-line
|
||
|
|
script get command-line get
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ "a" { "b" "c" } } [
|
||
|
|
{ "a" "b" "c" } parse-command-line
|
||
|
|
script get command-line get
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
{ "a" { "b" "c" } } [
|
||
|
|
{ "-foo" "a" "b" "c" } parse-command-line
|
||
|
|
script get command-line get
|
||
|
|
] unit-test
|