Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
e499a396
Commit
e499a396
authored
Feb 11, 2003
by
pfdietz
Browse files
Added tests that EQL, MEMBER types use EQL for membership.
parent
d768eeeb
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/subtypep.lsp
View file @
e499a396
...
...
@@ -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)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment