Commit 5527636c authored by pfdietz's avatar pfdietz

Fix vector-pop error tests that assumed VECTOR returns a vector without a fill pointer

parent 804f2b8e
......@@ -19,7 +19,11 @@
;;; Error cases
(deftest vector-pop.error.1
(signals-error (vector-pop (vector 1 2 3)) type-error)
(signals-error (let ((v (vector 1 2 3)))
(if (array-has-fill-pointer-p v)
(error 'type-error :datum v :type nil)
(vector-pop v)))
type-error)
t)
(deftest vector-pop.error.2
......@@ -39,7 +43,3 @@
(vector-pop v nil))
program-error)
t)
(deftest vector-pop.error.5
(signals-error (locally (vector-pop (vector 1 2 3)) t) type-error)
t)
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