Skip to content
Snippets Groups Projects
Commit a4411d41 authored by pfdietz's avatar pfdietz
Browse files

More error tests associated with keyword parameters

parent b1620325
No related branches found
No related tags found
No related merge requests found
......@@ -210,10 +210,21 @@
(eval `(signals-error (,sym 1 2) program-error))))
t t)
(deftest defmethod.error.14
(let ((sym (gensym)))
(eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key) x)))
(values (eval `(signals-error (,sym) program-error))
(eval `(signals-error (,sym 1 2) program-error))
(eval `(signals-error (,sym 1 :bogus t) program-error))
(eval `(signals-error (,sym 1 :allow-other-keys nil :allow-other-keys t :bogus t) program-error))))
t t t t)
(deftest defmethod.error.15
(let ((sym (gensym)))
(eval `(locally (declare (optimize safety)) (defmethod ,sym ((x t) &key y) x)))
(values (eval `(signals-error (,sym 1 :bogus t) program-error))
(eval `(signals-error (,sym 1 :y) program-error))
(eval `(signals-error (,sym 1 3 nil) program-error))))
t t t)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment