-;;;; ======================================================================
-;;;; File: benchmarks.lisp
-;;;; Authors: Kevin Rosenberg
-;;;; Created: 03/05/2004
-;;;; Updated: $Id$
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;; Name: benchmarks.lisp
+;;;; Purpose: Time performance tests for CLSQL
+;;;; Authors: Kevin M. Rosenberg
+;;;; Created: March 5, 2004
;;;;
;;;; 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.
;;;;
;;;; 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.
- (test-connect-to-database db-type spec)
- (write-report-banner "Benchmarks" db-type *report-stream*)
+ (test-setup-database db-type spec)
+ (write-report-banner "Benchmarks" db-type *report-stream*
+ (database-name-from-spec spec db-type))