From e499a3969a77a1a4fff5fd76d11cdd9d3f00f3f8 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 11 Feb 2003 14:27:23 +0000
Subject: [PATCH] Added tests that EQL, MEMBER types use EQL for membership.

---
 ansi-tests/subtypep.lsp | 50 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 50 insertions(+)

diff --git a/ansi-tests/subtypep.lsp b/ansi-tests/subtypep.lsp
index 8b8d7305..fd250c54 100644
--- a/ansi-tests/subtypep.lsp
+++ b/ansi-tests/subtypep.lsp
@@ -418,3 +418,53 @@
 (deftest subtypep.member.16
   (check-equivalence '(integer 2 5) '(member 2 5 4 3))
   nil)
+
+(deftest subtypep.member.17
+  (let ((s1 (copy-seq "abc"))
+	(s2 (copy-seq "abc")))
+    (let ((t1 `(member ,s1))
+	  (t2 `(member ,s2)))
+      (cond
+       ((subtypep t1 t2) "T1 is subtype of T2")
+       ((subtypep t2 t1) "T2 is subtype of T1")
+       (t (check-disjointness t1 t2)))))
+  nil)
+
+(deftest subtypep.member.18
+  (let ((s1 (copy-seq '(a b c)))
+	(s2 (copy-seq '(a b c))))
+    (let ((t1 `(member ,s1))
+	  (t2 `(member ,s2)))
+      (cond
+       ((subtypep t1 t2) "T1 is subtype of T2")
+       ((subtypep t2 t1) "T2 is subtype of T1")
+       (t (check-disjointness t1 t2)))))
+  nil)
+
+;;; Tests of EQL types
+
+(deftest subtypep.eql.1
+  (let ((s1 (copy-seq "abc"))
+	(s2 (copy-seq "abc")))
+    (let ((t1 `(eql ,s1))
+	  (t2 `(eql ,s2)))
+      (cond
+       ((subtypep t1 t2) "T1 is subtype of T2")
+       ((subtypep t2 t1) "T2 is subtype of T1")
+       (t (check-disjointness t1 t2)))))
+  nil)
+    
+(deftest subtypep.eql.2
+  (let ((s1 (copy-seq '(a b c)))
+	(s2 (copy-seq '(a b c))))
+    (let ((t1 `(eql ,s1))
+	  (t2 `(eql ,s2)))
+      (cond
+       ((subtypep t1 t2) "T1 is subtype of T2")
+       ((subtypep t2 t1) "T2 is subtype of T1")
+       (t (check-disjointness t1 t2)))))
+  nil)
+
+
+
+    
-- 
GitLab