From 63e4d6376762153f80b13050323ddec364e26eb7 Mon Sep 17 00:00:00 2001
From: "Kevin M. Rosenberg" <kevin@rosenberg.net>
Date: Sat, 8 May 2004 18:05:02 +0000
Subject: [PATCH] r9287: add object selection tests

---
 tests/benchmarks.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index eb218b6..3802d5c 100644
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -42,6 +42,7 @@
 
 (defun do-benchmarks-for-backend (db-type spec count)
   (test-connect-to-database db-type spec)
+  (test-initialise-database)
   (write-report-banner "Benchmarks" db-type *report-stream*)
 
   (create-view-from-class 'bench)
@@ -67,6 +68,10 @@
     (time
      (dotimes (i n)
        (query "SELECT * FROM BENCH" :field-names nil)))
+    (format *report-stream* "~&~%*** OBJECT QUERY ***~%")
+    (time
+     (dotimes (i n)
+       (mapcar #'(lambda (ea) (slot-value ea 'address)) (select 'employee-address :flatp t))))
     ))
 
 
-- 
2.34.1