guile/guile-core/test-suite ChangeLog tests/sym...

[Martin Grabmueller]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Martin Grabmueller <address@hidden>     01/05/28 11:40:31

Modified files:
        guile-core/test-suite: ChangeLog 
        guile-core/test-suite/tests: symbols.test 

Log message:
        * tests/symbols.test ("gensym"): New tests for long gensym
        prefices and embedded NULs in prefices.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/ChangeLog.diff?cvsroot=OldCVS&tr1=1.83&tr2=1.84&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/symbols.test.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text

Patches:
Index: guile/guile-core/test-suite/ChangeLog
diff -u guile/guile-core/test-suite/ChangeLog:1.83 
guile/guile-core/test-suite/ChangeLog:1.84
--- guile/guile-core/test-suite/ChangeLog:1.83  Mon May 21 06:22:44 2001
+++ guile/guile-core/test-suite/ChangeLog       Mon May 28 11:40:31 2001
@@ -1,3 +1,8 @@
+2001-05-28  Martin Grabmueller  <address@hidden>
+
+       * tests/symbols.test ("gensym"): New tests for long gensym
+       prefices and embedded NULs in prefices.
+
 2001-05-21  Marius Vollmer  <address@hidden>
 
        * test/goops.test, test/syncase.test: New, minimal tests.
Index: guile/guile-core/test-suite/tests/symbols.test
diff -u guile/guile-core/test-suite/tests/symbols.test:1.2 
guile/guile-core/test-suite/tests/symbols.test:1.3
--- guile/guile-core/test-suite/tests/symbols.test:1.2  Mon Apr  2 06:40:03 2001
+++ guile/guile-core/test-suite/tests/symbols.test      Mon May 28 11:40:31 2001
@@ -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)))
+