Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
5c26fa55
Commit
5c26fa55
authored
Mar 07, 2003
by
pfdietz
Browse files
More section 14.1.2.3 (paragraph 1) tests.
parent
1306ccee
Changes
9
Hide whitespace changes
Inline
Side-by-side
ansi-tests/cons-test-15.lsp
View file @
5c26fa55
...
...
@@ -104,6 +104,10 @@
(classify-error (mapc #'car '(a b c)))
type-error)
(deftest mapc.error.8
(classify-error (mapc #'identity (list* 1 2 3 4)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mapcar
...
...
@@ -208,6 +212,9 @@
(classify-error (mapcar #'cons '(a b c) '(1 2 3) '(4 5 6)))
program-error)
(deftest mapcar.error.8
(classify-error (mapcar #'identity (list* 1 2 3 4)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mapcan
...
...
@@ -320,6 +327,10 @@
(classify-error (mapcan #'cons '(a b c) '(1 2 3) '(4 5 6)))
program-error)
(deftest mapcan.error.8
(classify-error (mapcan #'identity (list* (list 1) (list 2) 3)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mapl
...
...
@@ -443,6 +454,9 @@
(classify-error (mapl #'caar '(a b c)))
type-error)
(deftest mapl.error.8
(classify-error (mapl #'identity (list* (list 1) (list 2) 3)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; maplist
...
...
@@ -574,6 +588,10 @@
(classify-error (maplist #'cons '(a b c) '(1 2 3) '(4 5 6)))
program-error)
(deftest maplist.error.11
(classify-error (maplist #'identity (list* (list 1) (list 2) 3)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; mapcon
...
...
@@ -650,3 +668,8 @@
(deftest mapcon.error.7
(classify-error (mapcon #'cons '(a b c) '(1 2 3) '(4 5 6)))
program-error)
(deftest mapcon.error.8
(classify-error (mapcon #'copy-tree (cons 1 2)))
type-error)
ansi-tests/cons-test-16.lsp
View file @
5c26fa55
...
...
@@ -693,9 +693,13 @@
program-error)
(deftest pairlist.error.4
(classify-error (pairlis 'a '(1)
'(a b c)
))
(classify-error (pairlis 'a '(1)))
type-error)
(deftest pairlist.error.5
(classify-error (pairlis '(a) 'b '(a b c)))
(classify-error (pairlis '(a) 'b))
type-error)
(deftest pairlist.error.6
(classify-error (pairlis '(a . b) '(c . d)))
type-error)
ansi-tests/cons-test-18.lsp
View file @
5c26fa55
...
...
@@ -78,6 +78,18 @@
(classify-error (get-properties nil nil nil))
program-error)
(deftest get-properties.error.4
(classify-error (get-properties '(a 1 b 2 c 3) '(a . b)))
type-error)
(deftest get-properties.error.5
(classify-error (get-properties '(a 1 b 2 c 3 . d) '(a z)))
type-error)
(deftest get-properties.error.6
(classify-error (get-properties '(a 1 b 2 c . d) '(a z)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; getf
...
...
@@ -296,6 +308,14 @@
(classify-error (getf nil nil nil nil))
program-error)
(deftest getf.error.4
(classify-error (getf '(a . b) 'c))
type-error)
(deftest getf.error.5
(classify-error (getf '(a 10 . b) 'c))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; remf
...
...
ansi-tests/cons-test-19.lsp
View file @
5c26fa55
...
...
@@ -388,6 +388,14 @@
(classify-error (intersection '(a b c) '(d e f) :key #'car))
type-error)
(deftest intersection.error.11
(classify-error (intersection '(a b c) '(d e f . g)))
type-error)
(deftest intersection.error.12
(classify-error (intersection '(a b . c) '(d e f)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; nintersection
...
...
@@ -736,3 +744,11 @@
(deftest nintersection.error.10
(classify-error (nintersection (list 1 2 3) (list 4 5 6) :key #'car))
type-error)
(deftest nintersection.error.11
(classify-error (nintersection (list 1 2 3) (list* 4 5 6 7)))
type-error)
(deftest nintersection.error.12
(classify-error (nintersection (list* 1 2 3) (list 4 5 6)))
type-error)
ansi-tests/cons-test-20.lsp
View file @
5c26fa55
...
...
@@ -401,4 +401,15 @@
(classify-error (union (list 1 2) (list 3 4) :key #'car))
type-error)
(deftest union.error.11
(classify-error (union (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest union.error.12
(classify-error (union (list* 1 2 3) (list 4 5 6)))
type-error)
ansi-tests/cons-test-21.lsp
View file @
5c26fa55
...
...
@@ -400,3 +400,10 @@
(classify-error (nunion (list 1 2) (list 3 4) :key #'car))
type-error)
(deftest nunion.error.11
(classify-error (nunion (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest nunion.error.12
(classify-error (nunion (list* 1 2 3) (list 4 5 6)))
type-error)
ansi-tests/cons-test-22.lsp
View file @
5c26fa55
...
...
@@ -310,6 +310,14 @@
(classify-error (set-difference (list 1 2) (list 3 4) :key #'car))
type-error)
(deftest set-difference.error.11
(classify-error (set-difference (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest set-difference.error.12
(classify-error (set-difference (list* 1 2 3) (list 4 5 6)))
type-error)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; nset-difference
...
...
@@ -611,3 +619,11 @@
(deftest nset-difference.error.10
(classify-error (nset-difference (list 1 2) (list 3 4) :key #'car))
type-error)
(deftest nset-difference.error.11
(classify-error (nset-difference (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest nset-difference.error.12
(classify-error (nset-difference (list* 1 2 3) (list 4 5 6)))
type-error)
ansi-tests/cons-test-23.lsp
View file @
5c26fa55
...
...
@@ -347,6 +347,14 @@
(classify-error (set-exclusive-or (list 1 2) (list 3 4) :key #'car))
type-error)
(deftest set-exclusive-or.error.11
(classify-error (set-exclusive-or (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest set-exclusive-or.error.12
(classify-error (set-exclusive-or (list* 1 2 3) (list 4 5 6)))
type-error)
;;; Randomized test
...
...
@@ -702,3 +710,10 @@
(classify-error (nset-exclusive-or (list 1 2) (list 3 4) :key #'car))
type-error)
(deftest nset-exclusive-or.error.11
(classify-error (nset-exclusive-or (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest nset-exclusive-or.error.12
(classify-error (nset-exclusive-or (list* 1 2 3) (list 4 5 6)))
type-error)
ansi-tests/cons-test-24.lsp
View file @
5c26fa55
...
...
@@ -247,4 +247,12 @@
(deftest subsetp.error.10
(classify-error (subsetp (list 1 2) (list 3 4) :key #'car))
type-error)
\ No newline at end of file
type-error)
(deftest subsetp.error.11
(classify-error (subsetp (list 1 2 3) (list* 4 5 6)))
type-error)
(deftest subsetp.error.12
(classify-error (subsetp (list* 1 2 3) (list 4 5 6)))
type-error)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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