(in-package #:cl-user)
-(defpackage #:clsql-tests
+(defpackage #:clsql-classic-tests
(:use #:asdf #:cl #:clsql #:ptester))
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: tables.cl
+;;;; Name: tables.lisp
;;;; Purpose: Table creation tests in CLSQL
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;; (:postgresql ("localhost" "another-db" "user2" "dont-tell"))
;;; (:postgresql-socket ("pg-server" "a-db-name" "user" "secret-password")))
-(in-package :clsql-tests)
+(in-package #:clsql-classic-tests)
(defvar *config-pathname*
(make-pathname :default (user-homedir-pathname)
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: tests.lisp
+;;;; Name: classic-tests.lisp
;;;; Purpose: Automated test of CLSQL using ACL's tester
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Mar 2002
;;; (:postgresql-socket ("pg-server" "a-db-name" "user" "secret-password"))
;;; (:sqlite ("path-to-sqlite-db")))
-(in-package :clsql-tests)
+(in-package #:clsql-classic-tests)
(defvar *config-pathname*
(make-pathname :defaults (user-homedir-pathname)