Modify test scripts to allow for the fact that zeroblob() is not available when compiled with OMIT_INCRBLOB. Ticket #2365. (CVS 4019)

FossilOrigin-Name: 2ee959be4afa2cf05d183ff92a31dd1b5a84becf

test/incrvacuum2.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing the incremental vacuum feature.
 #
-# $Id: incrvacuum2.test,v 1.2 2007/05/04 18:30:41 drh Exp $
+# $Id: incrvacuum2.test,v 1.3 2007/05/17 06:44:28 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -23,6 +23,16 @@ ifcapable {!autovacuum || !pragma} {
   return
 }
 
+# If the OMIT_INCRBLOB symbol was defined at compile time, there
+# is no zeroblob() function available. So create a similar
+# function here using Tcl. It doesn't return a blob, but it returns
+# data of the required length, which is good enough for this
+# test file.
+ifcapable !incrblob {
+  proc zeroblob {n} { string repeat 0 $n }
+  db function zeroblob zeroblob
+}
+
 # Create a database in incremental vacuum mode that has many
 # pages on the freelist.
 #