Commit 2378c0d8 authored by pfdietz's avatar pfdietz
Browse files

More error cases on specialized vectors

parent f58e8d92
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment