543 |
;;; Error tests |
;;; Error tests |
544 |
|
|
545 |
(deftest find-if.error.1 |
(deftest find-if.error.1 |
546 |
(signals-error (find-if #'null 'b) type-error) |
(check-type-error #'(lambda (x) (find-if #'null x)) #'(lambda (x) (typep x 'sequence))) |
547 |
t) |
nil) |
|
|
|
|
(deftest find-if.error.2 |
|
|
(signals-error (find-if #'identity 10) type-error) |
|
|
t) |
|
|
|
|
|
(deftest find-if.error.3 |
|
|
(signals-error (find-if '1+ 1.4) type-error) |
|
|
t) |
|
548 |
|
|
549 |
(deftest find-if.error.4 |
(deftest find-if.error.4 |
550 |
(signals-error (find-if 'null '(a b c . d)) type-error) |
(signals-error (find-if 'null '(a b c . d)) type-error) |
607 |
a 2 1 2) |
a 2 1 2) |
608 |
|
|
609 |
(deftest find-if.order.2 |
(deftest find-if.order.2 |
610 |
(let ((i 0) a b c d e f g) |
(let ((i 0) a b c d e f) |
611 |
(values |
(values |
612 |
(find-if (progn (setf a (incf i)) #'null) |
(find-if (progn (setf a (incf i)) #'null) |
613 |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
621 |
|
|
622 |
|
|
623 |
(deftest find-if.order.3 |
(deftest find-if.order.3 |
624 |
(let ((i 0) a b c d e f g) |
(let ((i 0) a b c d e f) |
625 |
(values |
(values |
626 |
(find-if (progn (setf a (incf i)) #'null) |
(find-if (progn (setf a (incf i)) #'null) |
627 |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |
(progn (setf b (incf i)) '(nil nil nil a nil nil)) |