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