clsql clsql-tests.asd,NONE,1.1 clsql.asd,1.16,1.17

Update of /pubcvs/clsql
In directory boa.b9.com:/tmp/cvs-serv1523

Modified Files:
	clsql.asd 
Added Files:
	clsql-tests.asd 
Log Message:


--- NEW FILE: clsql-tests.asd ---
;;;; -*- 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
;;;;
;;;; $Id: clsql-tests.asd,v 1.1 2003/05/02 03:05:54 kevin Exp $
;;;; *************************************************************************

(defpackage #:clsql-tests-system
  (:use #:asdf #:cl))
(in-package #:clsql-tests-system)

(defsystem clsql-tests
  :name "clsql-tests"
  :author "Kevin Rosenberg <kevin-HJRc7zDS/[email protected]>"
  :maintainer "Kevin M. Rosenberg <[email protected]>"
  :licence "Lessor Lisp General Public License"
  :description "Testing suite for CLSQL"

  :depends-on (:clsql :clsql-mysql :clsql-postgresql :clsql-postgresql-socket
		      #+allegro :clsql-aodbc)
  :components
  ((:module tests
	    :components
	    ((:file "rt")
	     (:file "acl-compat-tester")
	     (:file "package" :depends-on ("rt"))
;;	     (:file "tables" :depends-on ("package")))
	     (:file "tests" :depends-on ("package" "acl-compat-tester")))
	    )))

(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")))


Index: clsql.asd
===================================================================
RCS file: /pubcvs/clsql/clsql.asd,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** clsql.asd	8 Nov 2002 16:51:50 -0000	1.16
--- clsql.asd	2 May 2003 03:05:54 -0000	1.17
***************
*** 21,34 ****
  #+(or allegro lispworks cmu sbcl openmcl mcl scl)
  (defsystem :clsql
!   :name "cl-sql"
!   :author "Kevin M. Rosenberg <[email protected]>"
!   :version "0.9.2"
    :maintainer "Kevin M. Rosenberg <[email protected]>"
    :licence "Lessor Lisp General Public License"
    :description "Common Lisp SQL Interface Library"
    :long-description "cl-sql package provides the high-level interface for the CLSQL system."
    
-   :perform (load-op :after (op clsql)
- 		    (pushnew :clsql cl:*features*))
    :components
    ((:module :sql
--- 21,32 ----
  #+(or allegro lispworks cmu sbcl openmcl mcl scl)
  (defsystem :clsql
!   :name "clsql"
!   :author "Kevin Rosenberg <kevin-HJRc7zDS/[email protected]>"
    :maintainer "Kevin M. Rosenberg <[email protected]>"
+   :version "1.5.x"
    :licence "Lessor Lisp General Public License"
    :description "Common Lisp SQL Interface Library"
    :long-description "cl-sql package provides the high-level interface for the CLSQL system."
    
    :components
    ((:module :sql
***************
*** 43,44 ****
--- 41,47 ----
    :depends-on (:clsql-base)
    )
+ 
+ #+(or allegro lispworks cmu sbcl openmcl mcl scl)
+ (defmethod perform ((o test-op) (c (eql (find-system :clsql))))
+   (oos 'load-op 'clsql-tests)
+   (oos 'test-op 'clsql-tests))