2008-04-11 23:41:38 -04:00
|
|
|
USING: math tools.test system prettyprint namespaces kernel
|
|
|
|
|
strings sequences ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: system.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-04-02 19:25:33 -04:00
|
|
|
os wince? [
|
2008-03-06 21:44:52 -05:00
|
|
|
[ ] [ os-envs . ] unit-test
|
|
|
|
|
] unless
|
|
|
|
|
|
2008-04-02 19:25:33 -04:00
|
|
|
os unix? [
|
2008-03-06 21:44:52 -05:00
|
|
|
[ ] [ 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
|
2008-04-09 13:50:58 -04:00
|
|
|
|
|
|
|
|
[ ] [ "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
|
|
|
|
|
|
2008-04-11 23:41:38 -04:00
|
|
|
[ ] [
|
|
|
|
|
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
|
