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

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/09/26 13:39:03

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

Log message:
        * Remember that string=? and friends need fixing.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/test-suite/ChangeLog.diff?r1=1.44&r2=1.45
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/test-suite/tests/strings.test.diff?r1=1.2&r2=1.3

Patches:
Index: guile/guile-core/test-suite/ChangeLog
diff -u guile/guile-core/test-suite/ChangeLog:1.44 
guile/guile-core/test-suite/ChangeLog:1.45
--- guile/guile-core/test-suite/ChangeLog:1.44  Tue Sep 12 05:42:51 2000
+++ guile/guile-core/test-suite/ChangeLog       Tue Sep 26 13:39:03 2000
@@ -1,3 +1,8 @@
+2000-09-26  Dirk Herrmann  <address@hidden>
+
+       * tests/strings.test:  Added a test to help remember that string=?
+       and friends need fixing.
+
 2000-09-12  Dirk Herrmann  <address@hidden>
 
        * tests/environments.test:  For tests that rely on garbage
Index: guile/guile-core/test-suite/tests/strings.test
diff -u guile/guile-core/test-suite/tests/strings.test:1.2 
guile/guile-core/test-suite/tests/strings.test:1.3
--- guile/guile-core/test-suite/tests/strings.test:1.2  Sat Sep 11 11:46:48 1999
+++ guile/guile-core/test-suite/tests/strings.test      Tue Sep 26 13:39:03 2000
@@ -20,6 +20,15 @@
 
 (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"
         (not (string<? "foo\0" "foo")))
 (pass-if "string-ci<? respects string length"