Changeset 14611

Timestamp:

01/25/14 17:16:49 (8 years ago)

Author:

Mark Evenson

Message:

Broaden Java-side test coverage to compile everything under `test/src'.

Tests are still explicitly chosen via the nested <arg> to the
'abcl.test.java/java@' element at build.xml:940 ff.

The test in org.armedbear.lisp.util.HttpHeadTest? currently hangs (!)
the executing VM, a high priority item for abcl-1.3.0. The problem
lies in a hanging read in the JVM system classes that previously
didn't exist when accessing the ZipCache?.get(url) API for the second
time.

Users are advised to call SYSTEM:DISABLE-ZIP-CACHE until this behavior
is fixed.

Location:

trunk/abcl

Files:

• build.xml (modified) (4 diffs)
• test/lisp/abcl/jar-pathname.lisp (modified) (1 diff)
• test/src/org/armedbear/lisp/util (added)
• test/src/org/armedbear/lisp/util/HttpHeadTest.java (added)

trunk/abcl/build.xml

@@ -861 +861 @@
     --  Run all available tests.
   abcl.test.java
-    --  Run the ABCL junit Java tests under ${basedir}/test/src
+    --  Run the ABCL junit Java tests under ${basedir}/test/src/
   abcl.test.lisp
     --  Run the 'test.ansi.compiled', 'test.abcl', 'test.cl-bench' targets
@@ -867 +867 @@
     --  Run the compiled version of the ANSI test suite
   test.abcl
-    --  Run the Lisp RT tests collected in ${basedir}/test/lisp/abcl
+    --  Run the Lisp RT tests collected in ${basedir}/test/lisp/abcl/
   test.cl-bench 
     --  Run the cl-bench test suite.
@@ -890 +890 @@
 
     <patternset id="abcl.test.source.java">
-      <!-- For now, we list tests explicitly, because we have to
-           enumerate them later to the JUnit test runner. -->
-      <include name="org/armedbear/lisp/*.java"/>
+      <include name="org/armedbear/lisp/**/*.java"/>
     </patternset>
 
@@ -947 +945 @@
         <arg value="org.armedbear.lisp.StreamTest"/>
         <arg value="org.armedbear.lisp.UtilitiesTest"/>
+    <!-- currently hangs(!) the running process
+        <arg value="org.armedbear.lisp.util.HttpHeadTest"/>
+    -->
       </java>
     </target>

trunk/abcl/test/lisp/abcl/jar-pathname.lisp

@@ -203 +203 @@
 
 (defparameter *url-jar-pathname-base*
-  "jar:http://abcl-dynamic-install.googlecode.com/files/baz-20130403a.jar!/")
+  "jar:http://abcl.org/fasl/42/baz-20140105a-fasl-42.jar!/")
+;; fasl 41  "jar:http://abcl-dynamic-install.googlecode.com/files/baz-20130403a.jar!/")
 
 (defmacro load-url-relative (path) 
-  `(load (format nil "~A~A" *url-jar-pathname-base* ,path)))
+  `(load (probe-file (format nil "~A~A" *url-jar-pathname-base* ,path))))
 
 ;;; wrapped in PROGN for easy disabling without a network connection