[armedbear-cvs] r13884 - trunk/abcl/test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Feb 29 01:40:48 2012
New Revision: 13884

Log:
See #199: factored test for failing case.

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

Modified: trunk/abcl/test/lisp/abcl/mop-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/mop-tests.lisp	Wed Feb 29 01:40:46 2012	(r13883)
+++ trunk/abcl/test/lisp/abcl/mop-tests.lisp	Wed Feb 29 01:40:48 2012	(r13884)
@@ -597,3 +597,12 @@
   t)
 
 
+(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'")
+    
\ No newline at end of file