Skip to content
Snippets Groups Projects
Commit f58e8d92 authored by pfdietz's avatar pfdietz
Browse files

Add specialized integer vector and string tests

parent 8f266445
No related branches found
No related tags found
No related merge requests found
...@@ -135,6 +135,29 @@ ...@@ -135,6 +135,29 @@
;;; To add: aref on displaced arrays, arrays with fill pointers, etc. ;;; 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 (deftest aref.error.1
(signals-error (aref) program-error) (signals-error (aref) program-error)
t) t)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment