[armedbear-cvs] r13940 - in trunk/abcl: contrib/jss test/lisp/abcl

mevenson at common-lisp.net mevenson at common-lisp.net
Wed May 23 13:01:05 UTC 2012


Author: mevenson
Date: Wed May 23 06:01:04 2012
New Revision: 13940

Log:
Move JSS specific test under contrib.

Invocations of the ABCL test suite as used for bisection with
'--noinit --batch' fail to find abcl-contrib properly, so move the one
contrib specific test for now.

Added:
   trunk/abcl/contrib/jss/tests.lisp
Modified:
   trunk/abcl/test/lisp/abcl/bugs.lisp

Added: trunk/abcl/contrib/jss/tests.lisp
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ trunk/abcl/contrib/jss/tests.lisp	Wed May 23 06:01:04 2012	(r13940)
@@ -0,0 +1,15 @@
+(require :abcl)
+(require :abcl-test-lisp) 
+(require :abcl-contrib)
+(require :jss)
+
+(in-package :abcl-test-lisp)
+
+;;; http://trac.common-lisp.net/armedbear/ticket/205
+(deftest jss.with-constant-signature.1 
+    (progn 
+      (jss:with-constant-signature ((substring "substring")) 
+        (substring "01234" 2)))
+  "234")
+
+

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Tue May 22 06:39:13 2012	(r13939)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Wed May 23 06:01:04 2012	(r13940)
@@ -104,16 +104,6 @@
       (string= result docstring))
   t)
 
-;;; http://trac.common-lisp.net/armedbear/ticket/205
-(deftest bugs.with-constant-signature.1 
-    (progn 
-      (require :abcl-contrib)
-      (require :jss)
-      (jss:with-constant-signature ((substring "substring")) 
-        (substring "01234" 2)))
-  "234")
-
-
 ;;; http://trac.common-lisp.net/armedbear/ticket/199
 (deftest bugs.clos.aux.1
     ((lambda (a &aux (b (+ a 1))) 




More information about the armedbear-cvs mailing list