diff options
author | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-05-28 18:40:31 +0000 |
---|---|---|
committer | Martin Grabmüller <mgrabmue@cs.tu-berlin.de> | 2001-05-28 18:40:31 +0000 |
commit | 24ecf16c0c37098ea7747510d205f802ef3f37a1 (patch) | |
tree | 81a4512b1564c4ad20bd3db4789c2d13d9685e93 | |
parent | d81f6fe1fe9a7ccc871039e3c9c409297ea2b88f (diff) | |
download | guile-24ecf16c0c37098ea7747510d205f802ef3f37a1.tar.gz |
* tests/symbols.test ("gensym"): New tests for long gensym
prefices and embedded NULs in prefices.
-rw-r--r-- | test-suite/ChangeLog | 5 | ||||
-rw-r--r-- | test-suite/tests/symbols.test | 9 |
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))) + |