X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fbenchmarks.lisp;h=372b81cca30d0b5683562b7416555f70ed04ab42;hb=b50166ae0ba2bc09a9094c0e675ec92010b7293e;hp=66dfb3e75934e2d859691627f34e2990b8eaaa63;hpb=0cd2c5c91b32a5cf24a72291d922806b95a383c6;p=clsql.git

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index 66dfb3e..372b81c 100644
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -1,18 +1,19 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; ======================================================================
-;;;; File:    benchmarks.lisp
-;;;; Authors: Kevin Rosenberg
-;;;; Created: 03/05/2004
-;;;; Updated: $Id$
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Benchmark suite
+;;;; 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.
-;;;; ======================================================================
+;;;; *************************************************************************
+
 
 (in-package #:clsql-tests)
 
@@ -42,7 +43,8 @@
 
 (defun do-benchmarks-for-backend (db-type spec count)
   (test-connect-to-database db-type spec)
-  (write-report-banner "Benchmarks" db-type *report-stream*)
+  (write-report-banner "Benchmarks" db-type *report-stream*
+		       (database-name-from-spec spec db-type))
 
   (create-view-from-class 'bench)
   (benchmark-init)