Index: test/incrvacuum2.test ================================================================== --- test/incrvacuum2.test +++ test/incrvacuum2.test @@ -9,11 +9,11 @@ # #*********************************************************************** # 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 # If this build of the library does not support auto-vacuum, omit this @@ -20,10 +20,20 @@ # whole file. ifcapable {!autovacuum || !pragma} { finish_test 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. # do_test incrvacuum2-1.1 { Index: test/zeroblob.test ================================================================== --- test/zeroblob.test +++ test/zeroblob.test @@ -11,14 +11,19 @@ # This file implements regression tests for SQLite library. The # focus of this file is testing of the zero-filled blob functionality # including the sqlite3_bind_zeroblob(), sqlite3_result_zeroblob(), # and the built-in zeroblob() SQL function. # -# $Id: zeroblob.test,v 1.2 2007/05/02 16:51:59 drh Exp $ +# $Id: zeroblob.test,v 1.3 2007/05/17 06:44:29 danielk1977 Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl + +ifcapable !incrblob { + finish_test + return +} # When zeroblob() is used for the last field of a column, then the # content of the zeroblob is never instantiated on the VDBE stack. # But it does get inserted into the database correctly. #