clsql-tests.asd

   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 ;;;; $Id$
  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 ;;;; *************************************************************************
  16 ;;;; ======================================================================
  17
  18 (in-package #:cl-user)
  19 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
  20 (in-package #:clsql-tests-system)
  21
  22 (defsystem clsql-tests
  23     :name "CLSQL Tests"
  24     :author ""
  25     :maintainer ""
  26     :version ""
  27     :licence ""
  28     :description "A regression test suite for CLSQL."
  29     :depends-on (clsql clsql-classic-tests rt)
  30     :components
  31     ((:module tests
  32               :serial t
  33               :components ((:file "package")
  34                            (:file "test-init")
  35                            (:file "test-connection")
  36                            (:file "test-fddl")
  37                            (:file "test-fdml")
  38                            (:file "test-ooddl")
  39                            (:file "test-oodml")
  40                            (:file "test-syntax")))))
  41
  42 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
  43   (unless (funcall (intern (symbol-name '#:run-tests)
  44                            (find-package '#:clsql-tests)))
  45     (error "test-op failed")))