steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

command-line,tools.deploy.shaker: removes refs to executable which i forgot

char-rename
Björn Lindqvist 2016-09-27 00:31:35 +02:00
parent d18fbb1678
commit c42c7aabbc
2 changed files with 13 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
basis/command-line/command-line-tests.factor
View File

@ -1,33 +1,33 @@
USING: command-line namespaces tools.test ; USING: command-line namespaces tools.test ;
{ "factor" f { "a" "b" "c" } } [ { f { "a" "b" "c" } } [
{ "factor" "-run=test-voc" "a" "b" "c" } parse-command-line { "factor" "-run=test-voc" "a" "b" "c" } parse-command-line
executable get script get command-line get script get command-line get
] unit-test ] unit-test
{ "factor" f { "-a" "b" "c" } } [ { f { "-a" "b" "c" } } [
{ "factor" "-run=test-voc" "-a" "b" "c" } parse-command-line { "factor" "-run=test-voc" "-a" "b" "c" } parse-command-line
executable get script get command-line get script get command-line get
] unit-test ] unit-test
{ "factor" f { "a" "-b" "c" } } [ { f { "a" "-b" "c" } } [
{ "factor" "-run=test-voc" "a" "-b" "c" } parse-command-line { "factor" "-run=test-voc" "a" "-b" "c" } parse-command-line
executable get script get command-line get script get command-line get
] unit-test ] unit-test
{ "factor" f { "a" "b" "-c" } } [ { f { "a" "b" "-c" } } [
{ "factor" "-run=test-voc" "a" "b" "-c" } parse-command-line { "factor" "-run=test-voc" "a" "b" "-c" } parse-command-line
executable get script get command-line get script get command-line get
] unit-test ] unit-test
{ "factor" "a" { "b" "c" } } [ { "a" { "b" "c" } } [
{ "factor" "a" "b" "c" } parse-command-line { "factor" "a" "b" "c" } parse-command-line
executable get script get command-line get script get command-line get
] unit-test ] unit-test
{ "factor" "a" { "b" "c" } } [ { "a" { "b" "c" } } [
{ "factor" "-foo" "a" "b" "c" } parse-command-line { "factor" "-foo" "a" "b" "c" } parse-command-line
executable get script get command-line get script get command-line get
] unit-test ] unit-test
{ "a:b:c" } [ { "factor" "-roots=a:b:c" } parse-command-line { "a:b:c" } [ { "factor" "-roots=a:b:c" } parse-command-line

3
basis/tools/deploy/shaker/shaker.factor
View File

@ -17,8 +17,7 @@ IN: tools.deploy.shaker
: add-command-line-hook ( -- ) : add-command-line-hook ( -- )
[ [
(command-line) unclip (command-line) rest
executable set-global
command-line set-global command-line set-global
] "command-line" startup-hooks get set-at ; ] "command-line" startup-hooks get set-at ;