From 2378c0d8a4d7e6e25612c6f3550eeb9f40f0a3f0 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Fri, 27 May 2005 14:14:15 +0000 Subject: [PATCH] More error cases on specialized vectors --- ansi-tests/elt.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/ansi-tests/elt.lsp b/ansi-tests/elt.lsp index 316ee4ee..c9f1df76 100644 --- a/ansi-tests/elt.lsp +++ b/ansi-tests/elt.lsp @@ -441,3 +441,17 @@ (deftest elt.error.3 (signals-error (elt nil 0 nil) program-error) t) + +(deftest elt.error.4 + (do-special-integer-vectors + (v #(1 1 0 1 0 1) nil) + (assert (eql t (eval `(signals-error (elt ,v -1) type-error)))) + (assert (eql t (eval `(signals-error (elt ,v 6) type-error))))) + nil) + +(deftest elt.error.5 + (do-special-strings + (s "ABCDEFGH" nil) + (assert (eql t (eval `(signals-error (elt ,s -1) type-error)))) + (assert (eql t (eval `(signals-error (elt ,s 8) type-error))))) + nil) -- GitLab