X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=clsql-tests.asd;h=78ba676c4b8f968d1f5359411965bfade92bb869;hp=f9633ed4005731e7370d488c3c1d82dcd372a1fa;hb=bada52b7a8fd2cc484dee33cccd64ca09a52ec3d;hpb=736227185dd5fcda15796ef2a0da1bebb82ee9e5

diff --git a/clsql-tests.asd b/clsql-tests.asd
index f9633ed..78ba676 100644
--- a/clsql-tests.asd
+++ b/clsql-tests.asd
@@ -7,9 +7,10 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: clsql-tests.asd,v 1.2 2003/05/07 02:45:08 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
+(in-package #:cl-user)
 (defpackage #:clsql-tests-system (:use #:asdf #:cl))
 (in-package #:clsql-tests-system)
 
@@ -26,13 +27,13 @@
   ((:module tests
 	    :components
 	    ((:file "rt")
-	     (:file "acl-compat-tester")
+	     (:file "ptester")
 	     (:file "package" :depends-on ("rt"))
 ;;	     (:file "tables" :depends-on ("package")))
-	     (:file "tests" :depends-on ("package" "acl-compat-tester")))
+	     (:file "tests" :depends-on ("package" "ptester")))
 	    )))
 
-(defmethod perform ((o test-op) (c (eql (find-system :clsql-tests))))
+(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")))