1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; File: clsql-tests.asd
6 ;;;; Authors: Marcus Pearce <m.t.pearce@city.ac.uk> and Kevin Rosenberg
7 ;;;; Created: 30/03/2004
9 ;;;; This file is part of CLSQL.
11 ;;;; CLSQL users are granted the rights to distribute and use this software
12 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
13 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
14 ;;;; *************************************************************************
16 (in-package #:cl-user)
17 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
18 (in-package #:clsql-tests-system)
20 (defsystem clsql-tests
26 :description "A regression test suite for CLSQL."
27 :depends-on (clsql rt)
31 :components ((:file "package")
35 (:file "ds-employees")
38 (:file "test-internal")
41 (:file "test-connection")
46 (:file "test-syntax")))))
48 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
49 (operate 'load-op 'clsql)
50 (unless (funcall (intern (symbol-name '#:run-tests)
51 (find-package '#:clsql-tests)))
52 (error "test-op failed")))