r8846: updates

[clsql.git] / clsql-tests.asd

diff --git a/clsql-tests.asd b/clsql-tests.asd
index de6808828f9c6487414ac836971b9d49ab68c09f..6da0173eba355a45601f6ad90f6be1ec0201a55a 100644 (file)
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: clsql-tests.asd,v 1.4 2003/07/20 18:31:22 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package #:cl-user)
@@ -21,20 +21,22 @@
   :licence "Lessor Lisp General Public License"
   :description "Testing suite for CLSQL"
 
-  :depends-on (:clsql :clsql-mysql :clsql-postgresql :clsql-postgresql-socket
-                     #+allegro :clsql-aodbc)
+  :depends-on (:clsql #-clisp :clsql-mysql 
+                     #-clisp :clsql-postgresql
+                     #-clisp :clsql-postgresql-socket
+                     :ptester
+                     #+(and allegro (not allegro-cl-trial)) :clsql-aodbc
+                     :clsql-sqlite)
   :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")))