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