r8171: improved text output, automated OS discovery

[clsql.git] / clsql-tests.asd

diff --git a/clsql-tests.asd b/clsql-tests.asd
index 19883027c8bdbb6c36eafe85ea3ab0714228068b..7e12fb2409f386c129ee3391b9cd840f1faeef48 100644 (file)
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -7,11 +7,11 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: clsql-tests.asd,v 1.1 2003/05/02 03:05:54 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
-(defpackage #:clsql-tests-system
-  (:use #:asdf #:cl))
+(in-package #:cl-user)
+(defpackage #:clsql-tests-system (:use #:asdf #:cl))
 (in-package #:clsql-tests-system)
 
 (defsystem clsql-tests
@@ -22,18 +22,17 @@
   :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 "acl-compat-tester")
-            (:file "package" :depends-on ("rt"))
+           ((:file "package")
 ;;          (:file "tables" :depends-on ("package")))
-            (:file "tests" :depends-on ("package" "acl-compat-tester")))
+            (:file "tests" :depends-on ("package")))
            )))
 
-(defmethod perform ((o test-op) (c (eql (find-system :clsql-tests))))
+(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")))