168 |
;;; Tests for errors |
;;; Tests for errors |
169 |
|
|
170 |
(deftest make-sequence-error.1 |
(deftest make-sequence-error.1 |
171 |
(handler-case (make-sequence 'symbol 10) |
(classify-error (make-sequence 'symbol 10)) |
172 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|
173 |
|
|
174 |
(deftest make-sequence-error.2 |
(deftest make-sequence-error.2 |
175 |
(handler-case (make-sequence 'null 1) |
(classify-error (make-sequence 'null 1)) |
176 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|
177 |
|
|
178 |
(deftest make-sequence-error.3 |
(deftest make-sequence-error.3 |
179 |
(handler-case (make-sequence '(vector * 4) 3) |
(classify-error (make-sequence '(vector * 4) 3)) |
180 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|
181 |
|
|
182 |
(deftest make-sequence-error.4 |
(deftest make-sequence-error.4 |
183 |
(handler-case (make-sequence '(vector * 2) 3) |
(classify-error (make-sequence '(vector * 2) 3)) |
184 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|
185 |
|
|
186 |
(deftest make-sequence-error.5 |
(deftest make-sequence-error.5 |
187 |
(handler-case (make-sequence '(string 4) 3) |
(classify-error (make-sequence '(string 4) 3)) |
188 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|
189 |
|
|
190 |
(deftest make-sequence-error.6 |
(deftest make-sequence-error.6 |
191 |
(handler-case (make-sequence '(simple-string 2) 3) |
(classify-error (make-sequence '(simple-string 2) 3)) |
192 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|
193 |
|
|
194 |
(deftest make-sequence-error.7 |
(deftest make-sequence-error.7 |
195 |
(handler-case (make-sequence 'cons 0) |
(classify-error (make-sequence 'cons 0)) |
196 |
(type-error () :caught)) |
type-error) |
|
:caught) |
|