mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

* Remember that string=? and friends need fixing.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-26 20:39:03 +00:00
parent 06ee04b27d
commit 548b925289
2 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2000-09-26 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/strings.test: Added a test to help remember that string=?
and friends need fixing.
2000-09-12 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-09-12 Dirk Herrmann <D.Herrmann@tu-bs.de>
* tests/environments.test: For tests that rely on garbage * tests/environments.test: For tests that rely on garbage

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

@ -20,6 +20,15 @@
(use-modules (test-suite lib)) (use-modules (test-suite lib))
(expect-fail "string=? does not accept symbols"
(catch 'wrong-type-arg
(lambda ()
(string=? 'a 'b)
#f)
(lambda args
#t)))
(pass-if "string<? respects string length" (pass-if "string<? respects string length"
(not (string<? "foo\0" "foo"))) (not (string<? "foo\0" "foo")))
(pass-if "string-ci<? respects string length" (pass-if "string-ci<? respects string length"