Commit 14eb2d33 authored by Mark's avatar Mark
Browse files

Test for evaluation of incongruent generic keywords

Tests <https://abcl.org/trac/ticket/485>
parent bbd98717
......@@ -15,6 +15,7 @@
(:test-file "decode-float")
(:test-file "disassemble")
(:test-file "format-dollar")
(:test-file "generic-method")
(:test-file "java-arrays")
(:test-file "java-call-sites")
(:test-file "jcoerce-numerics")
......
(prove:plan 1)
;;; <https://abcl.org/trac/ticket/485>
(prove:ok
(handler-case
(progn
(in-package :cl-user)
(defmethod test ((a integer) &key b c)
(declare (ignore a b c)))
(defmethod test ((a real) &key b)
(declare (ignore a b)))
t)
(error () nil))
"Evaluation of generic methods with incongruent keywords succeeds")
(prove:finalize)
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