Commit 5527636c authored by pfdietz's avatar pfdietz
Browse files

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

parent 804f2b8e
...@@ -19,7 +19,11 @@ ...@@ -19,7 +19,11 @@
;;; Error cases ;;; Error cases
(deftest vector-pop.error.1 (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) t)
(deftest vector-pop.error.2 (deftest vector-pop.error.2
...@@ -39,7 +43,3 @@ ...@@ -39,7 +43,3 @@
(vector-pop v nil)) (vector-pop v nil))
program-error) program-error)
t) 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