Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.4 by pfdietz, Fri May 6 13:34:41 2005 UTC | |
---|---|---|
# | Line 71 | Line 71 |
71 | ||
72 | ||
73 | (deftest make-list.error.1 | (deftest make-list.error.1 |
74 | (catch-type-error (make-list -1)) | (check-type-error #'make-list (typef 'unsigned-byte)) |
75 | type-error) | nil) |
(deftest make-list.error.2 | ||
(signals-error (make-list 'a) type-error) | ||
t) | ||
76 | ||
77 | (deftest make-list.error.3 | (deftest make-list.error.3 |
78 | (signals-error (make-list) program-error) | (signals-error (make-list) program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |