Commit dca345fa authored by pfdietz's avatar pfdietz
Browse files

Added dotted list test for ADJOIN; fixed broken tests elsewhere.

parent 6142d3bd
......@@ -410,3 +410,8 @@
(deftest adjoin.error.9
(classify-error (adjoin 'a '(b c) :key #'cons))
program-error)
(deftest adjoin.error.10
(classify-error (adjoin 'a (list* 'b 'c 'd)))
type-error)
......@@ -79,15 +79,15 @@
program-error)
(deftest get-properties.error.4
(classify-error (get-properties '(a 1 b 2 c 3) '(a . b)))
(classify-error (get-properties '(a 1 b 2 c 3) '(x . y)))
type-error)
(deftest get-properties.error.5
(classify-error (get-properties '(a 1 b 2 c 3 . d) '(a z)))
(classify-error (get-properties '(a 1 b 2 c 3 . d) '(x y)))
type-error)
(deftest get-properties.error.6
(classify-error (get-properties '(a 1 b 2 c . d) '(a z)))
(classify-error (get-properties '(a 1 b 2 c . d) '(x y)))
type-error)
......
......@@ -254,5 +254,5 @@
type-error)
(deftest subsetp.error.12
(classify-error (subsetp (list* 1 2 3) (list 4 5 6)))
(classify-error (subsetp (list* 1 2 3) (list 1 2 3 4 5 6)))
type-error)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment