Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sun Jun 20 20:06:23 2004 UTC | revision 1.6 by pfdietz, Fri May 6 13:34:41 2005 UTC | |
---|---|---|
# | Line 235 | Line 235 |
235 | ;;; Error cases | ;;; Error cases |
236 | ||
237 | (deftest member.error.1 | (deftest member.error.1 |
238 | (signals-error (member 'a 'b) type-error) | (check-type-error #'(lambda (x) (member 'a x)) #'listp) |
239 | t) | nil) |
240 | ||
241 | (deftest member.error.2 | (deftest member.error.2 |
242 | (signals-error (member 'a 1.3) type-error) | (signals-error (member 'a 1.3) type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |