[cl-prevalence-cvs] CVS update: cl-prevalence/test/demo1.lisp

[Sven Van Caekenberghe]

Update of /project/cl-prevalence/cvsroot/cl-prevalence/test
In directory common-lisp.net:/tmp/cvs-serv14563/test

Modified Files:
	demo1.lisp 
Log Message:
more work on integrating sexp serialization
added benchmark2

Date: Tue Jun 22 01:37:23 2004
Author: scaekenberghe

Index: cl-prevalence/test/demo1.lisp
diff -u cl-prevalence/test/demo1.lisp:1.2 cl-prevalence/test/demo1.lisp:1.3
--- cl-prevalence/test/demo1.lisp:1.2	Mon Jun 21 08:26:21 2004
+++ cl-prevalence/test/demo1.lisp	Tue Jun 22 01:37:23 2004
@@ -1,6 +1,6 @@
 ;;;; -*- mode: Lisp -*-
 ;;;;
-;;;; $Id: demo1.lisp,v 1.2 2004/06/21 15:26:21 scaekenberghe Exp $
+;;;; $Id: demo1.lisp,v 1.3 2004/06/22 08:37:23 scaekenberghe Exp $
 ;;;;
 ;;;; A Common Lisp version of the the Java Prevalyer demo1 example
 ;;;;
@@ -64,6 +64,19 @@
 (defun benchmark1 ()
   (let (system)
     (setf system (make-prevalence-system *system-location*))
+    (totally-destroy system)
+    (execute system (make-transaction 'tx-create-numbers-root))
+    (time (dotimes (i 10000) (execute system (make-transaction 'tx-add-number i))))
+    (close-open-streams system)
+    (setf system (time (make-prevalence-system *system-location*)))
+    (close-open-streams system)))
+
+(defun benchmark2 ()
+  (let (system)
+    (setf system (make-prevalence-system *system-location* 
+                                         :init-args '(:serializer serialize-sexp 
+                                                      :deserializer deserialize-sexp 
+                                                      :file-extension "sexp")))
     (totally-destroy system)
     (execute system (make-transaction 'tx-create-numbers-root))
     (time (dotimes (i 10000) (execute system (make-transaction 'tx-add-number i))))