Parent Directory | Revision Log | Patch
revision 1.38 by pfdietz, Sun May 22 01:11:40 2005 UTC | revision 1.39 by pfdietz, Mon May 23 12:37:49 2005 UTC | |
---|---|---|
# | Line 252 | Line 252 |
252 | ||
253 | ;;; Error checking of type-related functions | ;;; Error checking of type-related functions |
254 | ||
(deftest typep.error.1 | ||
(signals-error (typep) program-error) | ||
t) | ||
(deftest typep.error.2 | ||
(signals-error (typep nil) program-error) | ||
t) | ||
(deftest typep.error.3 | ||
(signals-error (typep nil t nil nil) program-error) | ||
t) | ||
255 | (deftest type-error-datum.error.1 | (deftest type-error-datum.error.1 |
256 | (signals-error (type-error-datum) program-error) | (signals-error (type-error-datum) program-error) |
257 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |