Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sat Dec 14 04:54:00 2002 UTC | revision 1.2 by pfdietz, Wed Dec 18 03:59:11 2002 UTC | |
---|---|---|
# | Line 130 | Line 130 |
130 | ||
131 | ;;; Error tests | ;;; Error tests |
132 | ||
133 | (deftest coerce.error.1 | ;;; (deftest coerce.error.1 |
134 | (classify-error (coerce -1 '(integer 0 100))) | ;;; (classify-error (coerce -1 '(integer 0 100))) |
135 | type-error) | ;;; type-error) |
136 | ||
137 | (deftest coerce.error.2 | (deftest coerce.error.2 |
138 | (classify-error (coerce '(a b c) '(vector * 2))) | (classify-error (coerce '(a b c) '(vector * 2))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |