X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=clsql-tests.asd;fp=clsql-tests.asd;h=7a7d6d9b6da392e320c9f469a68ebba098e334cb;hp=d48b25eb4917400193d0ebc788be58acecd79f29;hb=5691bb90517d7c565a141d131da76c3de1f8d566;hpb=7fe2be1c1362639b32fab48534f3dce614586ff4

diff --git a/clsql-tests.asd b/clsql-tests.asd
index d48b25e..7a7d6d9 100644
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -2,10 +2,10 @@
 ;;;; *************************************************************************
 ;;;; 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
+;;;; Updated:  $Id$
 ;;;;
 ;;;; $Id$
 ;;;;
@@ -16,8 +16,10 @@
 ;;;; ======================================================================
 
 (in-package #:cl-user)
+(defpackage #:clsql-classic-tests-system (:use #:asdf #:cl))
+(in-package #:clsql-classic-tests-system)
 
-(asdf:defsystem clsql-tests
+(defsystem clsql-tests
     :name "CLSQL Tests"
     :author ""
     :maintainer ""
@@ -36,3 +38,10 @@
 			   (:file "test-ooddl")
 			   (:file "test-oodml")
 			   (:file "test-syntax")))))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'clsql-tests))))
+  (error "Automated performing of test-op is not yet supported.")
+  #+ignore
+  (unless (funcall (intern (symbol-name '#:run-tests)
+			   (find-package '#:clsql-tests)))
+    (error "test-op failed")))