-(defpackage #:clsql-tests-system (:use #:asdf #:cl))
-(in-package #:clsql-tests-system)
-
-(defsystem clsql-tests
- :name "clsql-tests"
- :author "Kevin Rosenberg <kevin@rosenberg.net>"
- :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
- :licence "Lessor Lisp General Public License"
- :description "Testing suite for CLSQL"
-
- :depends-on (:clsql :clsql-mysql :clsql-postgresql :clsql-postgresql-socket
- :rt
- #+(and allegro (not allegro-cl-trial)) :clsql-aodbc)
- :components
- ((:module tests
- :components
- ((:file "rt")
- (:file "ptester")
- (:file "package" :depends-on ("rt"))
-;; (:file "tables" :depends-on ("package")))
- (:file "tests" :depends-on ("package" "ptester")))
- )))
-
-(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")))