15 lines
310 B
Factor
15 lines
310 B
Factor
IN: scratchpad
|
|
USE: command-line
|
|
USE: namespaces
|
|
USE: test
|
|
|
|
[
|
|
[ 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
|