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 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 (eval-when (:compile-toplevel :load-toplevel :execute)
  21   (unless (find-package '#:uffi)
  22     (asdf:operate 'asdf:load-op 'uffi)))
  23
  24 (defsystem clsql-tests
  25     :name "CLSQL Tests"
  26     :author ""
  27     :maintainer ""
  28     :version ""
  29     :licence ""
  30     :description "A regression test suite for CLSQL."
  31     :depends-on (clsql rt)
  32     :components
  33     ((:module tests
  34               :serial t
  35               :components ((:file "package")
  36                            (:file "utils")
  37                            (:file "test-init")
  38                            (:file "datasets")
  39                            (:file "ds-employees")
  40                            (:file "ds-nodes")
  41                            (:file "ds-artists")
  42                            (:file "benchmarks")
  43                            (:file "test-internal")
  44                            (:file "test-basic")
  45                            (:file "test-time")
  46                            (:file "test-connection")
  47                            (:file "test-fddl")
  48                            (:file "test-fdml")
  49                            (:file "test-ooddl")
  50                            (:file "test-oodml")
  51                            (:file "test-syntax")
  52                            (:file "test-pool")
  53                            ; #-uffi:no-i18n (:file "test-i18n")
  54                            ))))
  55
  56 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
  57   (operate 'load-op 'clsql)
  58   (unless (funcall (intern (symbol-name '#:run-tests)
  59                            (find-package '#:clsql-tests)))
  60     (error "test-op failed")))