X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-tests.asd;h=a9c8729ff060a4b951fabcbe4c382b47b89464ee;hb=fab9ddccc9e48d6784f2b6baa044f41f8d5c7731;hp=77a3624eacfff52486399d1e91b07084a33d0532;hpb=5ff59a1d1055cd9f65c87f0290cbd52e4c3fda63;p=clsql.git

diff --git a/clsql-tests.asd b/clsql-tests.asd
index 77a3624..a9c8729 100644
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -22,19 +22,18 @@
   :description "Testing suite for CLSQL"
 
   :depends-on (:clsql :clsql-mysql :clsql-postgresql :clsql-postgresql-socket
+		      :ptester
 		      #+(and allegro (not allegro-cl-trial)) :clsql-aodbc)
   :components
   ((:module tests
 	    :components
-	    ((:file "rt")
-	     (:file "ptester")
-	     (:file "package" :depends-on ("rt"))
+	    ((:file "package")
 ;;	     (:file "tables" :depends-on ("package")))
-	     (:file "tests" :depends-on ("package" "ptester")))
+	     (:file "tests" :depends-on ("package")))
 	    )))
 
 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
-  (or (funcall (intern (symbol-name '#:do-tests)
-		       (find-package '#:regression-test)))
-      (error "test-op failed")))
+  (unless (funcall (intern (symbol-name '#:run-tests)
+			   (find-package '#:clsql-tests)))
+    (error "test-op failed")))