Parent Directory | Revision Log | Patch
revision 1.18 by pfdietz, Thu May 5 03:08:57 2005 UTC | revision 1.19 by pfdietz, Fri May 6 01:13:40 2005 UTC | |
---|---|---|
# | Line 653 | Line 653 |
653 | ;;; Error tests | ;;; Error tests |
654 | ||
655 | (deftest count.error.1 | (deftest count.error.1 |
656 | (signals-type-error x 1 (count 'a x)) | (check-type-error #'(lambda (x) (count 'a x)) #'sequencep) |
657 | t) | nil) |
(deftest count.error.2 | ||
(signals-type-error x 'a (count 'a x)) | ||
t) | ||
(deftest count.error.3 | ||
(signals-type-error x #\a (count 'a x)) | ||
t) | ||
658 | ||
659 | (deftest count.error.4 | (deftest count.error.4 |
660 | (signals-error (count) program-error) | (signals-error (count) program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |