;;;; ======================================================================
(in-package #:cl-user)
-(defpackage #:clsql-classic-tests-system (:use #:asdf #:cl))
-(in-package #:clsql-classic-tests-system)
+(defpackage #:clsql-tests-system (:use #:asdf #:cl))
+(in-package #:clsql-tests-system)
(defsystem clsql-tests
:name "CLSQL Tests"
:version ""
:licence ""
:description "A regression test suite for CLSQL."
- :depends-on (clsql rt)
+ :depends-on (clsql clsql-classic-tests rt)
:components
((:module tests
:serial t
(:file "test-syntax")))))
(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
- (error "Automated performing of test-op is not yet supported.")
- #+ignore
(unless (funcall (intern (symbol-name '#:run-tests)
(find-package '#:clsql-tests)))
(error "test-op failed")))