135 |
|
|
136 |
;;; To add: aref on displaced arrays, arrays with fill pointers, etc. |
;;; To add: aref on displaced arrays, arrays with fill pointers, etc. |
137 |
|
|
138 |
|
(deftest aref.special-integer.1 |
139 |
|
(do-special-integer-vectors |
140 |
|
(v #(1 1 0 1 0 1) nil) |
141 |
|
(assert (= (aref v 0) 1)) |
142 |
|
(assert (= (aref v 1) 1)) |
143 |
|
(assert (= (aref v 2) 0)) |
144 |
|
(assert (= (aref v 3) 1)) |
145 |
|
(assert (= (aref v 4) 0)) |
146 |
|
(assert (= (aref v 5) 1))) |
147 |
|
nil) |
148 |
|
|
149 |
|
(deftest aref.special-strings.1 |
150 |
|
(do-special-strings |
151 |
|
(s "ABCDE" nil) |
152 |
|
(assert (eql (aref s 0) #\A)) |
153 |
|
(assert (eql (aref s 1) #\B)) |
154 |
|
(assert (eql (aref s 2) #\C)) |
155 |
|
(assert (eql (aref s 3) #\D)) |
156 |
|
(assert (eql (aref s 4) #\E))) |
157 |
|
nil) |
158 |
|
|
159 |
|
;;; Error tests |
160 |
|
|
161 |
(deftest aref.error.1 |
(deftest aref.error.1 |
162 |
(signals-error (aref) program-error) |
(signals-error (aref) program-error) |
163 |
t) |
t) |