[armedbear-cvs] r13803 - in trunk/abcl: . contrib/abcl-asdf/tests

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Jan 25 03:31:59 2012
New Revision: 13803

Log:
Add Ant convenience target for "abcl-contrib.jar".

Modified:
   trunk/abcl/build.xml
   trunk/abcl/contrib/abcl-asdf/tests/example.lisp

Modified: trunk/abcl/build.xml
==============================================================================
--- trunk/abcl/build.xml	Wed Jan 25 02:45:05 2012	(r13802)
+++ trunk/abcl/build.xml	Wed Jan 25 03:31:59 2012	(r13803)
@@ -506,6 +506,7 @@
       </uptodate>
     </condition>
 
+    <target name="abcl-contrib.jar" depends="abcl.contrib"/>
     <target name="abcl.contrib" unless="abcl.contrib.uptodate.p">
       <jar destfile="${abcl-contrib.jar}"
            compress="true"

Modified: trunk/abcl/contrib/abcl-asdf/tests/example.lisp
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/tests/example.lisp	Wed Jan 25 02:45:05 2012	(r13802)
+++ trunk/abcl/contrib/abcl-asdf/tests/example.lisp	Wed Jan 25 03:31:59 2012	(r13803)
@@ -1,5 +1,11 @@
-(require :jss)
+(in-package :abcl-asdf-test)
+
+(deftest LOG4J.2
+    (asdf:load-system "log4j")
+    (let ((logger (#"getLogger" 'log4j.Logger (symbol-name (gensym)))))
+      (#"trace" logger "Kilroy wuz here."))
+  t)
+
+
 
-(let ((logger (#"getLogger" 'log4j.Logger (symbol-name (gensym)))))
-  (#"trace" logger "Kilroy wuz here."))