488 |
|
|
489 |
;;; Error tests |
;;; Error tests |
490 |
|
|
491 |
(deftest count-error.1 |
(deftest count.error.1 |
492 |
(catch-type-error (count 'a 1)) |
(catch-type-error (count 'a 1)) |
493 |
type-error) |
type-error) |
494 |
|
|
495 |
(deftest count-error.2 |
(deftest count.error.2 |
496 |
(catch-type-error (count 'a 'a)) |
(catch-type-error (count 'a 'a)) |
497 |
type-error) |
type-error) |
498 |
|
|
499 |
(deftest count-error.3 |
(deftest count.error.3 |
500 |
(catch-type-error (count 'a #\a)) |
(catch-type-error (count 'a #\a)) |
501 |
type-error) |
type-error) |
502 |
|
|
503 |
|
(deftest count.error.4 |
504 |
|
(classify-error (count)) |
505 |
|
program-error) |
506 |
|
|
507 |
|
(deftest count.error.5 |
508 |
|
(classify-error (count nil)) |
509 |
|
program-error) |
510 |
|
|
511 |
|
(deftest count.error.6 |
512 |
|
(classify-error (count nil nil :bad t)) |
513 |
|
program-error) |
514 |
|
|
515 |
|
(deftest count.error.7 |
516 |
|
(classify-error (count nil nil :bad t :allow-other-keys nil)) |
517 |
|
program-error) |
518 |
|
|
519 |
|
(deftest count.error.8 |
520 |
|
(classify-error (count nil nil :key)) |
521 |
|
program-error) |
522 |
|
|
523 |
|
(deftest count.error.9 |
524 |
|
(classify-error (count nil nil 3 3)) |
525 |
|
program-error) |
526 |
|
|