Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Thu Sep 2 11:47:20 2004 UTC | revision 1.3 by pfdietz, Sat Jun 4 17:34:35 2005 UTC | |
---|---|---|
# | Line 82 | Line 82 |
82 | :initial-contents '(#\a #\b #\c #\d)))) | :initial-contents '(#\a #\b #\c #\d)))) |
83 | t) | t) |
84 | ||
85 | (deftest stringp.15 | |
86 | (let ((i 0)) | |
87 | (values | |
88 | (notnot (stringp (progn (incf i) ""))) | |
89 | i)) | |
90 | t 1) | |
91 | ||
92 | ;;; Error tests | |
93 | ||
94 | (deftest stringp.error.1 | |
95 | (signals-error (stringp) program-error) | |
96 | t) | |
97 | ||
98 | (deftest stringp.error.2 | |
99 | (signals-error (stringp "" nil) program-error) | |
100 | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |