basis/environment/environment-tests.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: environment kernel namespaces prettyprint sequences
   4 strings system tools.test ;
   5
   6 { } [ os-envs . ] unit-test
   7
   8 os unix? [
   9     [ ] [ os-envs "envs" set ] unit-test
  10     [ ] [ { { "A" "B" } } set-os-envs ] unit-test
  11     [ "B" ] [ "A" os-env ] unit-test
  12     [ ] [ "envs" get set-os-envs ] unit-test
  13     [ t ] [ os-envs "envs" get = ] unit-test
  14 ] when
  15
  16 { } [ "factor-test-key-1" unset-os-env ] unit-test
  17 { } [ "ps3" "factor-test-key-1" set-os-env ] unit-test
  18 { "ps3" } [ "factor-test-key-1" os-env ] unit-test
  19 { } [ "factor-test-key-1" unset-os-env ] unit-test
  20 { f } [ "factor-test-key-1" os-env ] unit-test
  21
  22 { } [
  23     32766 CHAR: a <string> "factor-test-key-long" set-os-env
  24 ] unit-test
  25 { 32766 } [ "factor-test-key-long" os-env length ] unit-test
  26 { } [ "factor-test-key-long" unset-os-env ] unit-test
  27
  28 { "abc" } [
  29     "a" "factor-test-key-change" set-os-env
  30     "factor-test-key-change" [ "bc" append ] change-os-env
  31     "factor-test-key-change" os-env
  32 ] unit-test
  33 { } [ "factor-test-key-change" unset-os-env ] unit-test
  34
  35 ! Issue #794, setting something to ``f`` is a memory protection fault on mac
  36 { } [ f "dummy-env-variable-for-factor-test" set-os-env ] unit-test
  37
  38 { f "value" f } [
  39     "factor-test-key" os-env
  40     "value" "factor-test-key" [ "factor-test-key" os-env ] with-os-env
  41     "factor-test-key" os-env
  42 ] unit-test