167 |
|
|
168 |
;;; Tests for errors |
;;; Tests for errors |
169 |
|
|
170 |
(deftest make-sequence-error.1 |
(deftest make-sequence.error.1 |
171 |
(classify-error (make-sequence 'symbol 10)) |
(classify-error (make-sequence 'symbol 10)) |
172 |
type-error) |
type-error) |
173 |
|
|
174 |
(deftest make-sequence-error.2 |
(deftest make-sequence.error.2 |
175 |
(classify-error (make-sequence 'null 1)) |
(classify-error (make-sequence 'null 1)) |
176 |
type-error) |
type-error) |
177 |
|
|
178 |
(deftest make-sequence-error.3 |
(deftest make-sequence.error.3 |
179 |
(classify-error (make-sequence '(vector * 4) 3)) |
(classify-error (make-sequence '(vector * 4) 3)) |
180 |
type-error) |
type-error) |
181 |
|
|
182 |
(deftest make-sequence-error.4 |
(deftest make-sequence.error.4 |
183 |
(classify-error (make-sequence '(vector * 2) 3)) |
(classify-error (make-sequence '(vector * 2) 3)) |
184 |
type-error) |
type-error) |
185 |
|
|
186 |
(deftest make-sequence-error.5 |
(deftest make-sequence.error.5 |
187 |
(classify-error (make-sequence '(string 4) 3)) |
(classify-error (make-sequence '(string 4) 3)) |
188 |
type-error) |
type-error) |
189 |
|
|
190 |
(deftest make-sequence-error.6 |
(deftest make-sequence.error.6 |
191 |
(classify-error (make-sequence '(simple-string 2) 3)) |
(classify-error (make-sequence '(simple-string 2) 3)) |
192 |
type-error) |
type-error) |
193 |
|
|
194 |
(deftest make-sequence-error.7 |
(deftest make-sequence.error.7 |
195 |
(classify-error (make-sequence 'cons 0)) |
(classify-error (make-sequence 'cons 0)) |
196 |
type-error) |
type-error) |
197 |
|
|
198 |
|
(deftest make-sequence.error.8 |
199 |
|
(classify-error (make-sequence)) |
200 |
|
program-error) |
201 |
|
|
202 |
|
(deftest make-sequence.error.9 |
203 |
|
(classify-error (make-sequence 'list)) |
204 |
|
program-error) |
205 |
|
|
206 |
|
(deftest make-sequence.error.10 |
207 |
|
(classify-error (make-sequence 'list 10 :bad t)) |
208 |
|
program-error) |
209 |
|
|
210 |
|
(deftest make-sequence.error.11 |
211 |
|
(classify-error (make-sequence 'list 10 :bad t :allow-other-keys nil)) |
212 |
|
program-error) |
213 |
|
|
214 |
|
(deftest make-sequence.error.12 |
215 |
|
(classify-error (make-sequence 'list 10 :initial-element)) |
216 |
|
program-error) |
217 |
|
|
218 |
|
(deftest make-sequence.error.13 |
219 |
|
(classify-error (make-sequence 'list 10 0 0)) |
220 |
|
program-error) |
221 |
|
|