core/system/system-tests.factor

   1 USING: math tools.test system prettyprint namespaces kernel
   2 strings sequences ;
   3 IN: system.tests
   4
   5 os wince? [
   6     [ ] [ os-envs . ] unit-test
   7 ] unless
   8
   9 os unix? [
  10     [ ] [ os-envs "envs" set ] unit-test
  11     [ ] [ { { "A" "B" } } set-os-envs ] unit-test
  12     [ "B" ] [ "A" os-env ] unit-test
  13     [ ] [ "envs" get set-os-envs ] unit-test
  14     [ t ] [ os-envs "envs" get = ] unit-test
  15 ] when
  16
  17 [ ] [ "factor-test-key-1" unset-os-env ] unit-test
  18 [ ] [ "ps3" "factor-test-key-1" set-os-env ] unit-test
  19 [ "ps3" ] [ "factor-test-key-1" os-env ] unit-test
  20 [ ] [ "factor-test-key-1" unset-os-env ] unit-test
  21 [ f ] [ "factor-test-key-1" os-env ] unit-test
  22
  23 [ ] [
  24     32766 CHAR: a <string> "factor-test-key-long" set-os-env
  25 ] unit-test
  26 [ 32766 ] [ "factor-test-key-long" os-env length ] unit-test
  27 [ ] [ "factor-test-key-long" unset-os-env ] unit-test