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

[Mark Evenson]

Author: mevenson
Date: Fri Jan 30 15:43:02 2009
New Revision: 11606

Log:
Include new files missing from previous commit.


Added:
   trunk/abcl/test/lisp/abcl/abcl-test.lisp   (contents, props changed)
   trunk/abcl/test/lisp/abcl/package.lisp   (contents, props changed)
Modified:
   trunk/abcl/   (props changed)
   trunk/abcl/test/lisp/abcl/   (props changed)

Added: trunk/abcl/test/lisp/abcl/abcl-test.lisp
==============================================================================
--- (empty file)
+++ trunk/abcl/test/lisp/abcl/abcl-test.lisp	Fri Jan 30 15:43:02 2009
@@ -0,0 +1,7 @@
+(require 'asdf)
+(handler-case 
+    (progn
+      (asdf:oos 'asdf:load-op :abcl :force t)
+      (asdf:oos 'asdf:test-op :abcl-test-lisp :force t))
+  (t (e) (warn "Exiting after catching ~A" e)))
+(ext:exit)

Added: trunk/abcl/test/lisp/abcl/package.lisp
==============================================================================
--- (empty file)
+++ trunk/abcl/test/lisp/abcl/package.lisp	Fri Jan 30 15:43:02 2009
@@ -0,0 +1,33 @@
+(defpackage #:abcl.test.lisp 
+  (:use #:cl #:abcl-rt)
+  (:export #:run))
+(in-package #:abcl.test.lisp)
+
+(defparameter *abcl-lisp-test-pathname* nil)
+
+(eval-when (:load-toplevel)
+  (setf *abcl-lisp-test-pathname* *load-truename*))
+
+(defun run ()
+  (progv 
+      '(*default-pathname-defaults*)
+      `(,(merge-pathnames *abcl-lisp-test-pathname* *default-pathname-defaults*))
+    (rem-all-tests)
+
+    (load "test-utilities.lisp")
+
+    (load "compiler-tests.lisp")
+    (load "condition-tests.lisp")
+    (load "file-system-tests.lisp")
+    (load "java-tests.lisp")
+    (load "math-tests.lisp")
+    (load "misc-tests.lisp")
+
+    (do-tests)))
+
+
+
+   
+
+
+	
\ No newline at end of file