;;;; Created: 30/03/2004
;;;; Updated: $Id$
;;;;
-;;;; $Id$
+;;;; This file is part of CLSQL.
;;;;
;;;; CLSQL users are granted the rights to distribute and use this software
;;;; as governed by the terms of the Lisp Lesser GNU Public License
;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
-;;;; ======================================================================
(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"
((:module tests
:serial t
:components ((:file "package")
+ (:file "utils")
(:file "test-init")
+ (:file "benchmarks")
+ (:file "test-internal")
+ (:file "test-basic")
+ (:file "test-time")
(:file "test-connection")
(:file "test-fddl")
(:file "test-fdml")
(: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
+ (operate 'load-op 'clsql)
(unless (funcall (intern (symbol-name '#:run-tests)
(find-package '#:clsql-tests)))
(error "test-op failed")))