diff --git a/ansi-tests/elt.lsp b/ansi-tests/elt.lsp index 316ee4eebb777cc25f03f935efff48ceeeabc582..c9f1df76e44621e18ba281019bf64e5c43ed04a9 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)