-;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: clsql-tests.asd
-;;;; Purpose: ASDF system definitionf for clsql testing package
-;;;; Author: Kevin M. Rosenberg
-;;;; Date Started: Apr 2003
+;;;; File: clsql-tests.asd
+;;;; Authors: Marcus Pearce and Kevin Rosenberg
+;;;; Created: 30/03/2004
;;;;
-;;;; $Id$
+;;;; This file is part of CLSQL.
+;;;;
+;;;; CLSQL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
(in-package #:cl-user)
(defpackage #:clsql-tests-system (:use #:asdf #:cl))
(in-package #:clsql-tests-system)
-(defsystem clsql-tests
- :name "clsql-tests"
- :author "Kevin Rosenberg <kevin@rosenberg.net>"
- :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
- :licence "Lessor Lisp General Public License"
- :description "Testing suite for CLSQL"
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (unless (find-package '#:uffi)
+ (asdf:operate 'asdf:load-op 'uffi)))
- :depends-on (:clsql :clsql-mysql :clsql-postgresql :clsql-postgresql-socket
- #+allegro :clsql-aodbc)
- :components
- ((:module tests
- :components
- ((:file "rt")
- (:file "ptester")
- (:file "package" :depends-on ("rt"))
-;; (:file "tables" :depends-on ("package")))
- (:file "tests" :depends-on ("package" "ptester")))
- )))
+(defsystem clsql-tests
+ :name "CLSQL Tests"
+ :author ""
+ :maintainer ""
+ :version ""
+ :licence ""
+ :description "A regression test suite for CLSQL."
+ :depends-on (clsql rt)
+ :components
+ ((:module tests
+ :serial t
+ :components ((:file "package")
+ (:file "utils")
+ (:file "test-init")
+ (:file "datasets")
+ (:file "ds-employees")
+ (:file "ds-nodes")
+ (:file "benchmarks")
+ (:file "test-internal")
+ (:file "test-basic")
+ (:file "test-time")
+ (:file "test-connection")
+ (:file "test-fddl")
+ (:file "test-fdml")
+ (:file "test-ooddl")
+ (:file "test-oodml")
+ (:file "test-syntax")
+ #-uffi:no-i18n (:file "test-i18n")
+ ))))
(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
- (or (funcall (intern (symbol-name '#:do-tests)
- (find-package '#:regression-test)))
- (error "test-op failed")))
-
+ (operate 'load-op 'clsql)
+ (unless (funcall (intern (symbol-name '#:run-tests)
+ (find-package '#:clsql-tests)))
+ (error "test-op failed")))