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

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Apr  6 01:33:14 2012
New Revision: 13906

Log:
ticket #205:  putative test for JSS:WITH-CONSTANT-SIGNATURE

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

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Thu Apr  5 07:42:09 2012	(r13905)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Fri Apr  6 01:33:14 2012	(r13906)
@@ -105,4 +105,9 @@
   t)
 
 
-      
\ No newline at end of file
+      
+(deftest bugs.with-constant-signature.1 
+    (with-constant-signature ((substring "substring")) 
+      (substring "some string" 2))
+  t)
+