Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Fri Jan 3 04:28:38 2003 UTC | revision 1.4 by pfdietz, Mon Jan 13 14:11:51 2003 UTC | |
---|---|---|
# | Line 80 | Line 80 |
80 | (sort a #'char<)) | (sort a #'char<)) |
81 | "00111") | "00111") |
82 | ||
83 | ;;; Error cases | |
84 | ||
85 | (deftest sort.error.1 | |
86 | (classify-error (sort)) | |
87 | program-error) | |
88 | ||
89 | (deftest sort.error.2 | |
90 | (classify-error (sort nil)) | |
91 | program-error) | |
92 | ||
93 | (deftest sort.error.3 | |
94 | (classify-error (sort nil #'< :key)) | |
95 | program-error) | |
96 | ||
97 | (deftest sort.error.4 | |
98 | (classify-error (sort nil #'< 'bad t)) | |
99 | program-error) | |
100 | ||
101 | (deftest sort.error.5 | |
102 | (classify-error (sort nil #'< 'bad t :allow-other-keys nil)) | |
103 | program-error) | |
104 | ||
105 | (deftest sort.error.6 | |
106 | (classify-error (sort nil #'< 1 2)) | |
107 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |