[armedbear-cvs] r13607 - in trunk/abcl: . test/lisp/abcl

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Sep 30 07:17:55 2011
New Revision: 13607

Log:
Fixes for tests under SBCL.

Include the non-ABCL specific tests in bugs.lisp.

Allow SBCL to recompile the ABCL-TEST-LISP system by moving the
exporting of symbols into the DEFPACAKGE form.

Modified:
   trunk/abcl/abcl.asd
   trunk/abcl/test/lisp/abcl/bugs.lisp
   trunk/abcl/test/lisp/abcl/file-system-tests.lisp
   trunk/abcl/test/lisp/abcl/package.lisp

Modified: trunk/abcl/abcl.asd
==============================================================================
--- trunk/abcl/abcl.asd	Fri Sep 23 23:32:14 2011	(r13606)
+++ trunk/abcl/abcl.asd	Fri Sep 30 07:17:55 2011	(r13607)
@@ -50,7 +50,6 @@
                              ("compiler-tests"))
                       (:file "misc-tests")
                       (:file "latin1-tests")
-                      #+abcl
                       (:file "bugs" :depends-on 
                              ("file-system-tests"))
                       (:file "wild-pathnames" :depends-on 

Modified: trunk/abcl/test/lisp/abcl/bugs.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/bugs.lisp	Fri Sep 23 23:32:14 2011	(r13606)
+++ trunk/abcl/test/lisp/abcl/bugs.lisp	Fri Sep 30 07:17:55 2011	(r13607)
@@ -58,6 +58,7 @@
                                :DEFAULTS "/**/"))
   "**/")
 
+#+abcl
 (deftest bugs.java.1
     (let* ((a (java:jnew-array "byte" 1))
            (b (let ((array-list (java:jnew (java:jconstructor
@@ -70,7 +71,6 @@
       (type-of (sys::%make-byte-array-input-stream b)))
   stream)
                 
-                    
 
 (deftest bugs.readtable-case.1 
   (let (original-case result)
@@ -92,3 +92,5 @@
           (format s "~(~A~)" '(1 2 3 4))))
       result)
   "---(1 2 3 4)")
+
+      
\ No newline at end of file

Modified: trunk/abcl/test/lisp/abcl/file-system-tests.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/file-system-tests.lisp	Fri Sep 23 23:32:14 2011	(r13606)
+++ trunk/abcl/test/lisp/abcl/file-system-tests.lisp	Fri Sep 30 07:17:55 2011	(r13607)
@@ -21,9 +21,6 @@
 
 (in-package #:abcl.test.lisp)
 
-(export '(pathnames-equal-p run-shell-command copy-file make-symbolic-link
-          touch make-temporary-directory delete-directory-and-files))
-
 (defparameter *this-file*
   (merge-pathnames (make-pathname :type "lisp")
                    (if (find :asdf2 *features*)

Modified: trunk/abcl/test/lisp/abcl/package.lisp
==============================================================================
--- trunk/abcl/test/lisp/abcl/package.lisp	Fri Sep 23 23:32:14 2011	(r13606)
+++ trunk/abcl/test/lisp/abcl/package.lisp	Fri Sep 30 07:17:55 2011	(r13607)
@@ -1,11 +1,15 @@
-(defpackage #:abcl.test.lisp 
+(defpackage #:abcl.test.lisp
   (:use #:cl #:abcl-rt)
   (:nicknames "ABCL-TEST-LISP" "ABCL-TEST")
   (:export 
    #:run 
    #:do-matching #:run-matching
    #:do-test 
-   #:do-tests))
+   #:do-tests
+   ;; previously in file-system-tests.lisp
+   #:pathnames-equal-p #:run-shell-command #:copy-file #:make-symbolic-link
+   #:touch #:make-temporary-directory #:delete-directory-and-files
+   ))
 (in-package #:abcl.test.lisp)
 
 (defparameter *abcl-test-directory*