X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=clsql-tests.asd;h=a9c8729ff060a4b951fabcbe4c382b47b89464ee;hb=a8d51a9f4936875d80eb6206616fff6dd1b7e2db;hp=78ba676c4b8f968d1f5359411965bfade92bb869;hpb=bada52b7a8fd2cc484dee33cccd64ca09a52ec3d;p=clsql.git

diff --git a/clsql-tests.asd b/clsql-tests.asd
index 78ba676..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
-		      #+allegro :clsql-aodbc)
+		      :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")))