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 ;
6 { } [ os-envs . ] unit-test
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
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
23 32766 CHAR: a <string> "factor-test-key-long" set-os-env
25 { 32766 } [ "factor-test-key-long" os-env length ] unit-test
26 { } [ "factor-test-key-long" unset-os-env ] unit-test
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
33 { } [ "factor-test-key-change" unset-os-env ] unit-test
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
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