unit test for long os-env values

diff --git a/core/system/system-tests.factor b/core/system/system-tests.factor
index d5a48080c25369ec1b6f2354a126c33dad228a7b..c731a1472559c0e837dc27054747ec76aced68e6 100755 (executable)
--- a/core/system/system-tests.factor
+++ b/core/system/system-tests.factor
@@ -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
 
 os wince? [
@@ -19,3 +20,8 @@ os unix? [
 [ ] [ "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