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 ;;;;
   9 ;;;; This file is part of CLSQL.
  10 ;;;;
  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 ;;;; *************************************************************************
  15
  16 (in-package #:cl-user)
  17 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
  18 (in-package #:clsql-tests-system)
  19
  20 (defsystem clsql-tests
  21     :name "CLSQL Tests"
  22     :author ""
  23     :maintainer ""
  24     :version ""
  25     :licence ""
  26     :description "A regression test suite for CLSQL."
  27     :depends-on (clsql rt)
  28     :components
  29     ((:module tests
  30               :serial t
  31               :components ((:file "package")
  32                            (:file "utils")
  33                            (:file "test-init")
  34                            (:file "datasets")
  35                            (:file "ds-employees")
  36                            (:file "ds-nodes")
  37                            (:file "benchmarks")
  38                            (:file "test-internal")
  39                            (:file "test-basic")
  40                            (:file "test-time")
  41                            (:file "test-connection")
  42                            (:file "test-fddl")
  43                            (:file "test-fdml")
  44                            (:file "test-ooddl")
  45                            (:file "test-oodml")
  46                            (:file "test-syntax")
  47                            #-uffi:no-i18n (:file "test-i18n")
  48                            ))))
  49
  50 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
  51   (operate 'load-op 'clsql)
  52   (unless (funcall (intern (symbol-name '#:run-tests)
  53                            (find-package '#:clsql-tests)))
  54     (error "test-op failed")))