Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
5527636c
Commit
5527636c
authored
May 22, 2006
by
pfdietz
Browse files
Fix vector-pop error tests that assumed VECTOR returns a vector without a fill pointer
parent
804f2b8e
Changes
1
Hide whitespace changes
Inline
Side-by-side
ansi-tests/vector-pop.lsp
View file @
5527636c
...
...
@@ -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)
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment