Changeset 13884 for trunk/abcl/test/lisp/abcl/mop-tests.lisp

Timestamp:

02/29/12 09:40:48 (11 years ago)

Author:

Mark Evenson

Message:

See #199: factored test for failing case.

File:

• trunk/abcl/test/lisp/abcl/mop-tests.lisp (modified) (1 diff)

trunk/abcl/test/lisp/abcl/mop-tests.lisp

@@ -598 +598 @@
 
 
+(defgeneric apply-rule (rule))
+(defmethod apply-rule ((rule t) &aux (context (format nil "~A" rule)))
+  (format nil "Applying rule '~A' in context '~A'" rule context))
+
+;;; See ticket # 199
+(deftest defmethod-&aux.1
+    (apply-rule "1")
+  "Applying rule '1' in context '1'")
+