15 lines
370 B
Factor
Executable File
15 lines
370 B
Factor
Executable File
USING: math tools.test system prettyprint namespaces kernel ;
|
|
IN: system.tests
|
|
|
|
os wince? [
|
|
[ ] [ os-envs . ] unit-test
|
|
] unless
|
|
|
|
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
|