308 |
;;; Error tests |
;;; Error tests |
309 |
|
|
310 |
(deftest format.{.error.1 |
(deftest format.{.error.1 |
311 |
(signals-error (format nil "~{~A~}" 'A) type-error) |
(signals-type-error x 'A (format nil "~{~A~}" x)) |
312 |
t) |
t) |
313 |
|
|
314 |
(deftest format.{.error.2 |
(deftest format.{.error.2 |
315 |
(signals-error (format nil "~{~A~}" 1) type-error) |
(signals-type-error x 1 (format nil "~{~A~}" x)) |
316 |
t) |
t) |
317 |
|
|
318 |
(deftest format.{.error.3 |
(deftest format.{.error.3 |
319 |
(signals-error (format nil "~{~A~}" "foo") type-error) |
(signals-type-error x "foo" (format nil "~{~A~}" x)) |
320 |
t) |
t) |
321 |
|
|
322 |
(deftest format.{.error.4 |
(deftest format.{.error.4 |
323 |
(signals-error (format nil "~{~A~}" #*01101) type-error) |
(signals-type-error x #*01101 (format nil "~{~A~}" x)) |
324 |
t) |
t) |
325 |
|
|
326 |
(deftest format.{.error.5 |
(deftest format.{.error.5 |
332 |
t) |
t) |
333 |
|
|
334 |
(deftest format.\:{.error.2 |
(deftest format.\:{.error.2 |
335 |
(signals-error (format nil "~:{~A~}" 'x) type-error) |
(signals-type-error x 'x (format nil "~:{~A~}" x)) |
336 |
t) |
t) |
337 |
|
|
338 |
(deftest format.\:{.error.3 |
(deftest format.\:{.error.3 |
348 |
t) |
t) |
349 |
|
|
350 |
(deftest format.\:@.error.1 |
(deftest format.\:@.error.1 |
351 |
(signals-error (format nil "~:@{~A~}" 'x) type-error) |
(signals-type-error x 'x (format nil "~:@{~A~}" x)) |
352 |
t) |
t) |
353 |
|
|
354 |
(deftest format.\:@.error.2 |
(deftest format.\:@.error.2 |
355 |
(signals-error (format nil "~:@{~A~}" 0) type-error) |
(signals-type-error x 0 (format nil "~:@{~A~}" x)) |
356 |
t) |
t) |
357 |
|
|
358 |
(deftest format.\:@.error.3 |
(deftest format.\:@.error.3 |
359 |
(signals-error (format nil "~:@{~A~}" #*01101) type-error) |
(signals-type-error x #*01101 (format nil "~:@{~A~}" x)) |
360 |
t) |
t) |
361 |
|
|
362 |
(deftest format.\:@.error.4 |
(deftest format.\:@.error.4 |
363 |
(signals-error (format nil "~:@{~A~}" "abc") type-error) |
(signals-type-error x "abc" (format nil "~:@{~A~}" x)) |
364 |
t) |
t) |
365 |
|
|
366 |
(deftest format.\:@.error.5 |
(deftest format.\:@.error.5 |