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))))