X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Fbenchmarks.lisp;h=eb218b6791441299881ae95bca36e7a06934a931;hp=8c3a0ce62403a27c8868dca630e199e09e73e034;hb=d26a044593b10e62d1ba1c7b80266f55bc100d5d;hpb=e96c19277e33851ce1f87139b7f0c41d8a463bec

diff --git a/tests/benchmarks.lisp b/tests/benchmarks.lisp
index 8c3a0ce..eb218b6 100644
--- a/tests/benchmarks.lisp
+++ b/tests/benchmarks.lisp
@@ -27,7 +27,7 @@
    (c :initarg :c
       :type float)))
    
-(defun run-benchmarks (&key (report-stream *standard-output*) (sexp-report-stream nil) (count 1000))
+(defun run-benchmarks (&key (report-stream *standard-output*) (sexp-report-stream nil) (count 10000))
   (let ((specs (read-specs))
 	(*report-stream* report-stream)
 	(*sexp-report-stream* sexp-report-stream))
@@ -50,7 +50,7 @@
   (drop-view-from-class 'bench))
 
 (defun benchmark-init ()
-  (dotimes (i 100)
+  (dotimes (i 10)
     (execute-command "INSERT INTO BENCH (A,B,C) VALUES (123,'A Medium size string',3.14159)")))
 
 (defun benchmark-selects (n)