Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Wed Nov 27 04:22:36 2002 UTC | revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC | |
---|---|---|
# | Line 263 | Line 263 |
263 | (not (eql x y)))) | (not (eql x y)))) |
264 | #'<)) | #'<)) |
265 | (1 2 3 4 5 6)) | (1 2 3 4 5 6)) |
266 | ||
267 | (deftest union.error.1 | |
268 | (classify-error (union)) | |
269 | program-error) | |
270 | ||
271 | (deftest union.error.2 | |
272 | (classify-error (union nil)) | |
273 | program-error) | |
274 | ||
275 | (deftest union.error.3 | |
276 | (classify-error (union nil nil :bad t)) | |
277 | program-error) | |
278 | ||
279 | (deftest union.error.4 | |
280 | (classify-error (union nil nil :key)) | |
281 | program-error) | |
282 | ||
283 | (deftest union.error.5 | |
284 | (classify-error (union nil nil 1 2)) | |
285 | program-error) | |
286 | ||
287 | (deftest union.error.6 | |
288 | (classify-error (union nil nil :bad t :allow-other-keys nil)) | |
289 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |