X-Git-Url: http://git.kpe.io/?p=umlisp.git;a=blobdiff_plain;f=umlisp-tests.asd;h=7fe4832a4e3293af6d6761d0492178e32e614143;hp=45064516ce5dea3371bccee6e2d028247d537a0b;hb=HEAD;hpb=3adbc09e353b3c4dc09c8c9da6cddee8075eaa14

diff --git a/umlisp-tests.asd b/umlisp-tests.asd
index 4506451..7fe4832 100644
--- a/umlisp-tests.asd
+++ b/umlisp-tests.asd
@@ -6,8 +6,6 @@
 ;;;; Purpose:       ASDF system definitionf for umlisp testing package
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
-;;;;
-;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:umlisp-tests-system
@@ -18,13 +16,14 @@
     :depends-on (:rt :umlisp)
     :components
     ((:module tests
+	      :serial t
 	      :components
 	      ((:file "package")
-	       (:file "basic" :depends-on ("package"))
-	       (:file "parse" :depends-on ("package"))))))
+	       (:file "init")
+	       (:file "basic")
+	       (:file "parse")))))
 
-(defmethod perform ((o test-op) (c (eql (find-system :umlisp-tests))))
-  (or (funcall (intern (symbol-name '#:do-tests)
-		       (find-package '#:regression-test)))
+(defmethod perform ((o test-op) (c (eql (find-system 'umlisp-tests))))
+  (or (funcall (intern (symbol-name '#:run-tests)
+		       (find-package '#:umlisp-tests)))
       (error "test-op failed")))
-