* tests/symbols.test ("gensym"): New tests for long gensym

	prefices and embedded NULs in prefices.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index a1afa6d..a31a0df 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-28  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
+
+       * tests/symbols.test ("gensym"): New tests for long gensym
+       prefices and embedded NULs in prefices.
+
 2001-05-21  Marius Vollmer  <mvo@zagadka.ping.de>
 
        * test/goops.test, test/syncase.test: New, minimal tests.

diff --git a/test-suite/tests/symbols.test b/test-suite/tests/symbols.test
index 3524b49..7831a95 100644 (file)
--- a/test-suite/tests/symbols.test
+++ b/test-suite/tests/symbols.test
@@ -80,4 +80,11 @@
 
   (pass-if-exception "does not accept a symbol prefix"
     exception:wrong-type-arg
-    (gensym 'foo)))
+    (gensym 'foo))
+
+  (pass-if "accepts long prefices"
+    (symbol? (gensym (make-string 4000 #\!))))
+
+  (pass-if "accepts embedded NULs"
+    (> (string-length (symbol->string (gensym "foo\0bar\0braz\0foo\0bar\0braz\0foo\0bar\0braz\0foo\0bar\0braz\0foo\0bar\0braz\0foo\0bar\0braz\0"))) 6)))
+