summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-28 18:40:31 +0000
committerMartin Grabmüller <mgrabmue@cs.tu-berlin.de>2001-05-28 18:40:31 +0000
commit24ecf16c0c37098ea7747510d205f802ef3f37a1 (patch)
tree81a4512b1564c4ad20bd3db4789c2d13d9685e93
parentd81f6fe1fe9a7ccc871039e3c9c409297ea2b88f (diff)
downloadguile-24ecf16c0c37098ea7747510d205f802ef3f37a1.tar.gz
* tests/symbols.test ("gensym"): New tests for long gensym
prefices and embedded NULs in prefices.
-rw-r--r--test-suite/ChangeLog5
-rw-r--r--test-suite/tests/symbols.test9
2 files changed, 13 insertions, 1 deletions
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index a1afa6d36..a31a0dfec 100644
--- 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 3524b492b..7831a9514 100644
--- 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)))
+