X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-tests.asd;h=a9c8729ff060a4b951fabcbe4c382b47b89464ee;hb=fab9ddccc9e48d6784f2b6baa044f41f8d5c7731;hp=178bb7a7ef99c8f3a05a76ec9be3cf6e8d52b9e1;hpb=c9c1c527069909eeb95833fdc7899d4261faf65a;p=clsql.git

diff --git a/clsql-tests.asd b/clsql-tests.asd
index 178bb7a..a9c8729 100644
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -22,20 +22,18 @@
   :description "Testing suite for CLSQL"
 
   :depends-on (:clsql :clsql-mysql :clsql-postgresql :clsql-postgresql-socket
-		      :rt
+		      :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")))