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