projects
/
clsql.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6c1926c
)
r9287: add object selection tests
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 8 May 2004 18:05:02 +0000
(18:05 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 8 May 2004 18:05:02 +0000
(18:05 +0000)
tests/benchmarks.lisp
patch
|
blob
|
history
diff --git
a/tests/benchmarks.lisp
b/tests/benchmarks.lisp
index eb218b6791441299881ae95bca36e7a06934a931..3802d5c0880d0dbb4d6c154e896813c54b688b4d 100644
(file)
--- 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))))
))