From 548b92528934487f4a268b3038a1586c3d54bf01 Mon Sep 17 00:00:00 2001
From: Dirk Herrmann <dirk@dirk-herrmanns-seiten.de>
Date: Tue, 26 Sep 2000 20:39:03 +0000
Subject: [PATCH] =?UTF-8?q?*=20Remember=20that=20string=3D=3F=20and=20frie?=
 =?UTF-8?q?nds=20need=20fixing.?=

---
 test-suite/ChangeLog          | 5 +++++
 test-suite/tests/strings.test | 9 +++++++++
 2 files changed, 14 insertions(+)

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index b0fea8962..18b9582b8 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -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>
 
 	* tests/environments.test:  For tests that rely on garbage
diff --git a/test-suite/tests/strings.test b/test-suite/tests/strings.test
index e439b95a1..9305128f8 100644
--- a/test-suite/tests/strings.test
+++ b/test-suite/tests/strings.test
@@ -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"