1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; File: clsql-tests.asd
6 ;;;; Authors: Marcus Pearce 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 (eval-when (:compile-toplevel :load-toplevel :execute)
21 (unless (find-package '#:uffi)
22 (asdf:operate 'asdf:load-op 'uffi)))
24 (defsystem clsql-tests
30 :description "A regression test suite for CLSQL."
31 :depends-on (clsql rt)
35 :components ((:file "package")
39 (:file "ds-employees")
43 (:file "test-internal")
46 (:file "test-connection")
52 ; #-uffi:no-i18n (:file "test-i18n")
55 (defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
56 (operate 'load-op 'clsql)
57 (unless (funcall (intern (symbol-name '#:run-tests)
58 (find-package '#:clsql-tests)))
59 (error "test-op failed")))