projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Mysql shouldn't segfault in database-query when running a command with no resultset.
[clsql.git]
/
clsql-tests.asd
diff --git
a/clsql-tests.asd
b/clsql-tests.asd
index d48b25eb4917400193d0ebc788be58acecd79f29..60ffd0eb98b2896b970489180a6d1d8cd5c442c4 100644
(file)
--- a/
clsql-tests.asd
+++ b/
clsql-tests.asd
@@
-2,22
+2,22
@@
;;;; *************************************************************************
;;;; 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
+;;;; Authors: Marcus Pearce <m.t.pearce@city.ac.uk> 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.
;;;; *************************************************************************
;;;;
;;;; 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 ""
@@
-25,14
+25,28
@@
:licence ""
:description "A regression test suite for CLSQL."
:depends-on (clsql rt)
:licence ""
:description "A regression test suite for CLSQL."
:depends-on (clsql rt)
- :components
+ :components
((:module tests
:serial t
:components ((:file "package")
((:module tests
:serial t
:components ((:file "package")
+ (:file "utils")
(:file "test-init")
(: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")))))
(: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")))