Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
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
f58e8d92
Commit
f58e8d92
authored
May 27, 2005
by
pfdietz
Browse files
Add specialized integer vector and string tests
parent
8f266445
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/aref.lsp
View file @
f58e8d92
...
...
@@ -135,6 +135,29 @@
;;; To add: aref on displaced arrays, arrays with fill pointers, etc.
(deftest aref.special-integer.1
(do-special-integer-vectors
(v #(1 1 0 1 0 1) nil)
(assert (= (aref v 0) 1))
(assert (= (aref v 1) 1))
(assert (= (aref v 2) 0))
(assert (= (aref v 3) 1))
(assert (= (aref v 4) 0))
(assert (= (aref v 5) 1)))
nil)
(deftest aref.special-strings.1
(do-special-strings
(s "ABCDE" nil)
(assert (eql (aref s 0) #\A))
(assert (eql (aref s 1) #\B))
(assert (eql (aref s 2) #\C))
(assert (eql (aref s 3) #\D))
(assert (eql (aref s 4) #\E)))
nil)
;;; Error tests
(deftest aref.error.1
(signals-error (aref) program-error)
t)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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