Commit fdd5c3d0 authored by pfdietz's avatar pfdietz

Added some error tests for ensure-generic-function.

parent 29685269
......@@ -56,5 +56,22 @@
'error)))
nil t t t)
;;; Many more tests are needed for other combinations of keyword parameters
(deftest ensure-generic-function.error.1
(classify-error (ensure-generic-function))
program-error)
(deftest ensure-generic-function.error.2
(classify-error (ensure-generic-function (gensym) :lambda-list))
program-error)
(deftest ensure-generic-function.error.3
(classify-error (ensure-generic-function (gensym) :allow-other-keys t
'("not a valid keyword") nil))
program-error)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment