419 |
|
|
420 |
;;; Error tests |
;;; Error tests |
421 |
|
|
422 |
(deftest count-if-error.1 |
(deftest count-if.error.1 |
423 |
(catch-type-error (count-if #'identity 1)) |
(catch-type-error (count-if #'identity 1)) |
424 |
type-error) |
type-error) |
425 |
|
|
426 |
(deftest count-if-error.2 |
(deftest count-if.error.2 |
427 |
(catch-type-error (count-if #'identity 'a)) |
(catch-type-error (count-if #'identity 'a)) |
428 |
type-error) |
type-error) |
429 |
|
|
430 |
(deftest count-if-error.3 |
(deftest count-if.error.3 |
431 |
(catch-type-error (count-if #'identity #\a)) |
(catch-type-error (count-if #'identity #\a)) |
432 |
type-error) |
type-error) |
433 |
|
|
434 |
|
(deftest count-if.error.4 |
435 |
|
(classify-error (count-if)) |
436 |
|
program-error) |
437 |
|
|
438 |
|
(deftest count-if.error.5 |
439 |
|
(classify-error (count-if #'null)) |
440 |
|
program-error) |
441 |
|
|
442 |
|
(deftest count-if.error.6 |
443 |
|
(classify-error (count-if #'null nil :bad t)) |
444 |
|
program-error) |
445 |
|
|
446 |
|
(deftest count-if.error.7 |
447 |
|
(classify-error (count-if #'null nil :bad t :allow-other-keys nil)) |
448 |
|
program-error) |
449 |
|
|
450 |
|
(deftest count-if.error.8 |
451 |
|
(classify-error (count-if #'null nil :key)) |
452 |
|
program-error) |
453 |
|
|
454 |
|
(deftest count-if.error.9 |
455 |
|
(classify-error (count-if #'null nil 3 3)) |
456 |
|
program-error) |