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

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed May 16 02:13:11 2012
New Revision: 13936

Log:
abcl-test-lisp: add test for ticket #199.

Fix test for tciekt #205.

Modified:
   trunk/abcl/test/lisp/abcl/bugs.lisp

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Mon May 14 01:15:53 2012	(r13935)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Wed May 16 02:13:11 2012	(r13936)
@@ -104,10 +104,26 @@
       (string= result docstring))
   t)
 
-
-      
+;;; http://trac.common-lisp.net/armedbear/ticket/205
 (deftest bugs.with-constant-signature.1 
-    (with-constant-signature ((substring "substring")) 
-      (substring "some string" 2))
+    (progn 
+      (require :abcl-contrib)
+      (require :jss)
+      (jss:with-constant-signature ((substring "substring")) 
+        (substring "some string" 2)))
   t)
 
+
+;;; http://trac.common-lisp.net/armedbear/ticket/199
+(deftest bugs.clos.aux.1 
+    ;;; XXX possible collision with previously defined names
+    (progn
+      (defclass room ()
+        ((decorators :reader room-decorators)))
+      (defgeneric decorators (room))
+      (defmethod decorators ((room room) 
+                             &aux (d (decorators room)))
+        d)
+      (decorators (make-instance 'room)))
+  t)
+