mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 16:30:19 +02:00
Code Activity

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

Browse source 
prefices and embedded NULs in prefices.
This commit is contained in:
Martin Grabmüller 2001-05-28 18:40:31 +00:00
parent d81f6fe1fe
commit 24ecf16c0c
2 changed files with 13 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -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> 2001-05-21 Marius Vollmer <mvo@zagadka.ping.de>
* test/goops.test, test/syncase.test: New, minimal tests. * test/goops.test, test/syncase.test: New, minimal tests.

9
test-suite/tests/symbols.test
View file

@ -80,4 +80,11 @@
(pass-if-exception "does not accept a symbol prefix" (pass-if-exception "does not accept a symbol prefix"
exception:wrong-type-arg 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)))