core/system/system-tests.factor

   1 USING: math tools.test system prettyprint namespaces kernel ;
   2 IN: system.tests
   3
   4 [ t ] [ cell integer? ] unit-test
   5 [ t ] [ bootstrap-cell integer? ] unit-test
   6
   7 wince? [
   8     [ ] [ os-envs . ] unit-test
   9 ] unless
  10
  11 unix? [
  12     [ ] [ os-envs "envs" set ] unit-test
  13     [ ] [ { { "A" "B" } } set-os-envs ] unit-test
  14     [ "B" ] [ "A" os-env ] unit-test
  15     [ ] [ "envs" get set-os-envs ] unit-test
  16     [ t ] [ os-envs "envs" get = ] unit-test
  17 ] when