10 |
;;; Error tests |
;;; Error tests |
11 |
|
|
12 |
(deftest lognor.error.1 |
(deftest lognor.error.1 |
13 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) (lognor x 0)) #'integerp) |
|
unless (or (integerp x) |
|
|
(eval `(signals-error (lognor ',x 0) type-error))) |
|
|
collect x) |
|
14 |
nil) |
nil) |
15 |
|
|
16 |
(deftest lognor.error.2 |
(deftest lognor.error.2 |
17 |
(loop for x in *mini-universe* |
(check-type-error #'(lambda (x) (lognor 0 x)) #'integerp) |
|
unless (or (integerp x) |
|
|
(eval `(signals-error (lognor 0 ',x) type-error))) |
|
|
collect x) |
|
18 |
nil) |
nil) |
19 |
|
|
20 |
(deftest lognor.error.3 |
(deftest lognor.error.3 |