unit test for long os-env values

db4
Doug Coleman 2008-04-11 22:41:38 -05:00
parent dadaae59a1
commit def4e06652
1 changed files with 7 additions and 1 deletions

View File

@ -1,4 +1,5 @@
USING: math tools.test system prettyprint namespaces kernel ; USING: math tools.test system prettyprint namespaces kernel
strings sequences ;
IN: system.tests IN: system.tests
os wince? [ os wince? [
@ -19,3 +20,8 @@ os unix? [
[ ] [ "factor-test-key-1" unset-os-env ] unit-test [ ] [ "factor-test-key-1" unset-os-env ] unit-test
[ f ] [ "factor-test-key-1" 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