basis/command-line/command-line-tests.factor

   1 USING: namespaces tools.test kernel command-line ;
   2 IN: command-line.tests
   3
   4 [
   5     [ f ] [ "-no-user-init" cli-arg ] unit-test
   6     [ f ] [ "user-init" get ] unit-test
   7
   8     [ f ] [ "-user-init" cli-arg ] unit-test
   9     [ t ] [ "user-init" get ] unit-test
  10
  11     [ "sdl.factor" ] [ "sdl.factor" cli-arg ] unit-test
  12 ] with-scope