From dca345fa34480ca511197f58efc4848fda283556 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sat, 8 Mar 2003 00:50:28 +0000 Subject: [PATCH] Added dotted list test for ADJOIN; fixed broken tests elsewhere. --- ansi-tests/cons-test-04.lsp | 5 +++++ ansi-tests/cons-test-18.lsp | 6 +++--- ansi-tests/cons-test-24.lsp | 2 +- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ansi-tests/cons-test-04.lsp b/ansi-tests/cons-test-04.lsp index 0053f0dd..7162c840 100644 --- a/ansi-tests/cons-test-04.lsp +++ b/ansi-tests/cons-test-04.lsp @@ -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) + diff --git a/ansi-tests/cons-test-18.lsp b/ansi-tests/cons-test-18.lsp index 46526b25..771dd9d5 100644 --- a/ansi-tests/cons-test-18.lsp +++ b/ansi-tests/cons-test-18.lsp @@ -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) diff --git a/ansi-tests/cons-test-24.lsp b/ansi-tests/cons-test-24.lsp index a010e17d..8d0ed9c6 100644 --- a/ansi-tests/cons-test-24.lsp +++ b/ansi-tests/cons-test-24.lsp @@ -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) -- GitLab