Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Fri Jan 24 04:22:54 2003 UTC | revision 1.5 by pfdietz, Mon Feb 17 11:54:01 2003 UTC | |
---|---|---|
# | Line 30 | Line 30 |
30 | (defconstant test-constant-3 0) | (defconstant test-constant-3 0) |
31 | test-constant-3) | test-constant-3) |
32 | ||
33 | (deftest defconstant.error.1 | |
34 | (classify-error (defconstant)) | |
35 | program-error) | |
36 | ||
37 | (deftest defconstant.error.2 | |
38 | (classify-error (defconstant +ignorable-constant-name+)) | |
39 | program-error) | |
40 | ||
41 | (deftest defconstant.error.3 | |
42 | (classify-error (defconstant +ignorable-constant-name2+ nil | |
43 | "This is a docstring" | |
44 | "This is an unnecessary extra argument.")) | |
45 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |