13 lines
325 B
Factor
13 lines
325 B
Factor
|
USING: namespaces tools.test kernel command-line ;
|
||
|
|
IN: command-line.tests
|
||
|
|
|
||
|
|
[
|
||
|
|
[ f ] [ "-no-user-init" cli-arg ] unit-test
|
||
|
|
[ f ] [ "user-init" get ] unit-test
|
||
|
|
|
||
|
|
[ f ] [ "-user-init" cli-arg ] unit-test
|
||
|
|
[ t ] [ "user-init" get ] unit-test
|
||
|
|
|
||
|
|
[ "sdl.factor" ] [ "sdl.factor" cli-arg ] unit-test
|
||
|
|
] with-scope
|