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