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 ;;;; 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 ;;;; *************************************************************************
  16
  17 (in-package #:cl-user)
  18 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
  19 (in-package #:clsql-tests-system)
  20
  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")))))
  45
  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")))