Added the default_cache_size and default_synchronous pragmas. Added additional
tests for pragmas. Added a new speedtest script. (CVS 421)
FossilOrigin-Name: 161c0c5f5db66815e4345c9b5f7a600c03a67475
diff --git a/test/tester.tcl b/test/tester.tcl
index a30dad8..bcda99d 100644
--- a/test/tester.tcl
+++ b/test/tester.tcl
@@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
-# $Id: tester.tcl,v 1.21 2001/11/09 22:41:45 drh Exp $
+# $Id: tester.tcl,v 1.22 2002/03/06 22:01:37 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# error message if not.
@@ -46,6 +46,9 @@
file delete -force test.db
file delete -force test.db-journal
sqlite db ./test.db
+if {[info exists ::SETUP_SQL]} {
+ db eval $::SETUP_SQL
+}
# Abort early if this script has been run before.
#