Have database-type default be *default-database-type*
[clsql/s11.git] / clsql-tests.asd
blob9d4df2f67e4c223ce5c13b7b7fedfdf77915a0b6
1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
4 ;;;;
5 ;;;; File:     clsql-tests.asd
6 ;;;; Authors:  Marcus Pearce <m.t.pearce@city.ac.uk> and Kevin Rosenberg 
7 ;;;; Created:  30/03/2004
8 ;;;; Updated:  $Id$
9 ;;;;
10 ;;;; This file is part of CLSQL.
11 ;;;;
12 ;;;; CLSQL users are granted the rights to distribute and use this software
13 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
14 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
15 ;;;; *************************************************************************
17 (in-package #:cl-user)
18 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
19 (in-package #:clsql-tests-system)
21 (defsystem clsql-tests
22     :name "CLSQL Tests"
23     :author ""
24     :maintainer ""
25     :version ""
26     :licence ""
27     :description "A regression test suite for CLSQL."
28     :depends-on (clsql rt)
29     :components 
30     ((:module tests
31               :serial t
32               :components ((:file "package")
33                            (:file "utils")
34                            (:file "test-init")
35                            (:file "benchmarks")
36                            (:file "test-internal")
37                            (:file "test-basic")
38                            (:file "test-time")
39                            (:file "test-connection")
40                            (:file "test-fddl")
41                            (:file "test-fdml")
42                            (:file "test-ooddl")
43                            (:file "test-oodml")
44                            (:file "test-syntax")))))
46 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
47   (operate 'load-op 'clsql)
48   (unless (funcall (intern (symbol-name '#:run-tests)
49                            (find-package '#:clsql-tests)))
50     (error "test-op failed")))