53 |
|
|
54 |
(deftest boole.error.5 |
(deftest boole.error.5 |
55 |
(let ((bad (loop for i from 1 until (not (member i *boole-vals*))))) |
(let ((bad (loop for i from 1 until (not (member i *boole-vals*))))) |
56 |
(eval `(signals-error (boole ,bad 1 1) type-error))) |
(eval `(signals-type-error x ',bad (boole x 1 1)))) |
57 |
t) |
t) |
58 |
|
|
59 |
(deftest boole.error.6 |
(deftest boole.error.6 |
60 |
(loop for n in *boole-val-names* |
(loop for n in *boole-val-names* |
61 |
unless (eval `(signals-error (boole ,n nil 1) type-error)) |
unless (eval `(signals-type-error x nil (boole ,n nil 1))) |
62 |
collect n) |
collect n) |
63 |
nil) |
nil) |
64 |
|
|
65 |
(deftest boole.error.7 |
(deftest boole.error.7 |
66 |
(loop for n in *boole-val-names* |
(loop for n in *boole-val-names* |
67 |
unless (eval `(signals-error (boole ,n 1 nil) type-error)) |
unless (eval `(signals-type-error x nil (boole ,n 1 nil))) |
68 |
collect n) |
collect n) |
69 |
nil) |
nil) |
70 |
|
|