projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10376: 03 Apr 2005 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
clsql-tests.asd
diff --git
a/clsql-tests.asd
b/clsql-tests.asd
index d48b25eb4917400193d0ebc788be58acecd79f29..9d4df2f67e4c223ce5c13b7b7fedfdf77915a0b6 100644
(file)
--- a/
clsql-tests.asd
+++ b/
clsql-tests.asd
@@
-2,22
+2,23
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; File: clsql-tests.asd
-;;;; Author
: Marcus Pearce <m.t.pearce@city.ac.uk>
-;;;; Created: 30/03/2004
-;;;; Updated:
<04/04/2004 12:34:41 marcusp>
+;;;; File:
clsql-tests.asd
+;;;; Author
s: Marcus Pearce <m.t.pearce@city.ac.uk> and Kevin Rosenberg
+;;;; Created:
30/03/2004
+;;;; Updated:
$Id$
;;;;
;;;;
-;;;;
$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.
;;;; *************************************************************************
;;;;
;;;; 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)
(in-package #:cl-user)
+(defpackage #:clsql-tests-system (:use #:asdf #:cl))
+(in-package #:clsql-tests-system)
-(
asdf:
defsystem clsql-tests
+(defsystem clsql-tests
:name "CLSQL Tests"
:author ""
:maintainer ""
:name "CLSQL Tests"
:author ""
:maintainer ""
@@
-29,10
+30,21
@@
((:module tests
:serial t
:components ((:file "package")
((:module tests
:serial t
:components ((:file "package")
+ (:file "utils")
(:file "test-init")
(:file "test-init")
+ (: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")))))
(:file "test-connection")
(:file "test-fddl")
(:file "test-fdml")
(:file "test-ooddl")
(:file "test-oodml")
(:file "test-syntax")))))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
+ (operate 'load-op 'clsql)
+ (unless (funcall (intern (symbol-name '#:run-tests)
+ (find-package '#:clsql-tests)))
+ (error "test-op failed")))