Tests to improve coverage of vdbemem.c. (CVS 2200)

FossilOrigin-Name: 319bb4a9064deb062a888fdc31067619c9b749bb

diff --git a/manifest b/manifest
index 6e830c0c635e6e0d2ccc058c48338c93a1dcec3a..f0a6775b90eae06c7d4e8449a3504d7b5c850a99 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sa\sbug\sin\stclsqlite.c.\s(CVS\s2199)
-D 2005-01-12T00:08:25
+C Tests\sto\simprove\scoverage\sof\svdbemem.c.\s(CVS\s2200)
+D 2005-01-12T07:15:05
 F Makefile.in ecf441ac5ca1ccfc8748a8a9537706e69893dfa4
 F Makefile.linux-gcc a9e5a0d309fa7c38e7c14d3ecf7690879d3a5457
 F README a01693e454a00cc117967e3f9fdab2d4d52e9bc1
@@ -29,8 +29,8 @@ F sqlite3.def dbaeb20c153e1d366e8f421b55a573f5dfc00863
 F sqlite3.pc.in 985b9bf34192a549d7d370e0f0b6b34a4f61369a
 F src/attach.c e49d09dad9f5f9fb10b4b0c1be5a70ae4c45e689
 F src/auth.c 3b81f2a42f48a62c2c9c9b0eda31a157c681edea
-F src/btree.c 5ec669c8839d98dd9e283cc6d4547da4adb37a81
-F src/btree.h 861e40b759a195ba63819740e484390012cf81ab
+F src/btree.c bd2fd7fed9cc1ec84e70fe9f01dfcb474b53bbe5
+F src/btree.h 74d19cf40ab49fd69abe9e4e12a6c321ad86c497
 F src/build.c af1296e8a21a406b4f4c4f1e1365e075071219f3
 F src/cursor.c f883813759742068890b1f699335872bfa8fdf41
 F src/date.c 65536e7ea04fdde6e0551264fca15966966e171f
@@ -62,10 +62,10 @@ F src/random.c eff68e3f257e05e81eae6c4d50a51eb88beb4ff3
 F src/select.c af6ffcf0201f8f4e2697eea25689077dc61c6109
 F src/shell.c e8f4f486cbf6e60d81173146ac8a6522c930fa51
 F src/sqlite.h.in 0d5e48e506845b74a845c9470e01d3f472b59611
-F src/sqliteInt.h a362fd46ba14f67e8e088d30ecbbe228545c43fe
+F src/sqliteInt.h 087d21946d79c6eec1b84a32122def5fd99ee03b
 F src/table.c 25b3ff2b39b7d87e8d4a5da0713d68dfc06cbee9
 F src/tclsqlite.c 75a8dc9cd7ac0f41482bd7b96b99d54e62b6e98f
-F src/test1.c d684fb31dccd68434e148bef51d9c0a24b09bdf0
+F src/test1.c 30584dd0b7eb501534c5f4b2292b13a32ef58651
 F src/test2.c b11fa244fff02190707dd0879987c37c75e61fc8
 F src/test3.c a72f20066cccd5a7b9f20b7b78fa9b05b47b3020
 F src/test4.c 7c6b9fc33dd1f3f93c7f1ee6e5e6d016afa6c1df
@@ -73,18 +73,18 @@ F src/test5.c 64f08b2a50ef371a1bd68ff206829e7b1b9997f5
 F src/tokenize.c c1d124ec41422c9ec14360ea3a1f98ca4acf7cf1
 F src/trigger.c 98f3b07c08ba01b34cff139ef9687883d325ae8e
 F src/update.c 0979397c41ac29c54fe0cc687a356d8629a633af
-F src/utf.c e45ce11be6922408cd381561721f6cca7d3b992a
-F src/util.c bf42625f35492864faa6fe14aa5a858de25cc2a0
+F src/utf.c 9bece2c7b94d9002ab1bb900a7658c6f826b0f74
+F src/util.c 4511559caf83e70a036deb5c56f10ddf35a688fb
 F src/vacuum.c 1a9db113a027461daaf44724c71dd1ebbd064203
-F src/vdbe.c 8ef389f567e233768a845e7dffacb21308e4f3e8
+F src/vdbe.c b8e619fbaa59be3e537804469d8cedd4a98d3c2e
 F src/vdbe.h 067ca8d6750ba4f69a50284765e5883dee860181
 F src/vdbeInt.h 0f74561e629af86172de7cdf0ecaea014c51696c
 F src/vdbeapi.c 0cf3bdc1072616bedc8eec7fc22e3f5a169d33fd
 F src/vdbeaux.c 60c24559b458d4da368694c0d322326b22edffd1
-F src/vdbemem.c 5876c8abf4374fef671f4fd8dc333ef3fc95a2f0
+F src/vdbemem.c 5d9fd8de5d4f5d1f3446c9a90a7b3f8c38557821
 F src/where.c 3a0d08505e298242f6f151f019a05129a4f8704c
 F tclinstaller.tcl 36478c3bbfc5b93ceac42d94e3c736937b808432
-F test/all.test 87cc4ea3cff6da70aefd789c6ef539dbb1c27eec
+F test/all.test 387e2e3bed9325bfdc538ebb7f2238cce69620e9
 F test/alter.test 95c57a4f461fa81293e0dccef7f83889aadb169a
 F test/attach.test f39069efd4394422798f249df9a31489aa941ee1
 F test/attach2.test eeb987770f4dbe68bd29afdbc2e8cff0142e6eb5
@@ -150,7 +150,7 @@ F test/lock.test 32fe28e5030f25f23bcf6beef440675b0d848413
 F test/lock2.test 59c3dd7d9b24d1bf7ec91b2d1541c37e97939d5f
 F test/lock3.test 615111293cf32aa2ed16d01c6611737651c96fb9
 F test/main.test a60a1d234b5f5784097973bd395514ca56003ef1
-F test/malloc.test 74b9d6b8e6b388102e2c5dbcda7da4341e00e6b5
+F test/malloc.test 79c5e0676a8346884b3197c811f2eac60b0521cc
 F test/memdb.test 532aac7128a3da494cddc4461d76c6e3988f771b
 F test/memleak.test f1fa233f8295dd1d955a00d5e5ee857850f27f29
 F test/minmax.test e7048476940df0af11d0f2cf687572f557cd0b29
@@ -268,7 +268,7 @@ F www/tclsqlite.tcl e73f8f8e5f20e8277619433f7970060ab01088fc
 F www/vdbe.tcl 095f106d93875c94b47367384ebc870517431618
 F www/version3.tcl 092a01f5ef430d2c4acc0ae558d74c4bb89638a0
 F www/whentouse.tcl c3b50d3ac31c54be2a1af9b488a89d22f1e6e746
-P 1bee1bb91d39ff8a33efe662b6cab6dbd2d50e3c
-R 6de97aaefc689d9641defe44416179bf
-U drh
-Z 686cf7812785575d0f1d1fe10b0b7525
+P 50f1e229652610b386745bb39fed45549cc74aa7
+R bf4878fa2c84d42762e103055cb55fd1
+U danielk1977
+Z 3c12901d279d54cf5f64fafd62ec59a5

diff --git a/manifest.uuid b/manifest.uuid
index d4e23d46b73a8fb2fca8d94473fae9cfce51c7de..c6e2d79a0da1d3e76992f7827a0a444e4534666d 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-50f1e229652610b386745bb39fed45549cc74aa7
\ No newline at end of file
+319bb4a9064deb062a888fdc31067619c9b749bb
\ No newline at end of file

diff --git a/src/btree.c b/src/btree.c
index 5551b0c02cf0241a8db9b2821f31b65121bf99e1..6c9c98b5e4f6de7cf736691cf46f254ac6955435 100644 (file)
--- a/src/btree.c
+++ b/src/btree.c
@@ -9,7 +9,7 @@
 **    May you share freely, never taking more than you give.
 **
 *************************************************************************
-** $Id: btree.c,v 1.230 2005/01/11 10:25:07 danielk1977 Exp $
+** $Id: btree.c,v 1.231 2005/01/12 07:15:05 danielk1977 Exp $
 **
 ** This file implements a external (disk-based) database using BTrees.
 ** For a detailed discussion of BTrees, refer to
@@ -4743,12 +4743,11 @@ int sqlite3BtreeFlags(BtCursor *pCur){
   return pPage ? pPage->aData[pPage->hdrOffset] : 0;
 }
 
+#ifdef SQLITE_DEBUG
 /*
 ** Print a disassembly of the given page on standard output.  This routine
 ** is used for debugging and testing only.
 */
-#ifdef SQLITE_TEST
-#ifndef SQLITE_OMIT_BTREEPAGEDUMP
 static int btreePageDump(Btree *pBt, int pgno, int recursive, MemPage *pParent){
   int rc;
   MemPage *pPage;
@@ -4845,11 +4844,8 @@ static int btreePageDump(Btree *pBt, int pgno, int recursive, MemPage *pParent){
   fflush(stdout);
   return SQLITE_OK;
 }
-#endif
 int sqlite3BtreePageDump(Btree *pBt, int pgno, int recursive){
-#ifndef SQLITE_OMIT_BTREEPAGEDUMP
   return btreePageDump(pBt, pgno, recursive, 0);
-#endif
 }
 #endif
 

diff --git a/src/btree.h b/src/btree.h
index e2aedcdda42041eace6c86ad931315a9a4c8a087..8d78f5871be28485873bf73bafc66cecf1ab7355 100644 (file)
--- a/src/btree.h
+++ b/src/btree.h
@@ -13,7 +13,7 @@
 ** subsystem.  See comments in the source code for a detailed description
 ** of what each interface routine does.
 **
-** @(#) $Id: btree.h,v 1.60 2004/11/05 15:45:10 danielk1977 Exp $
+** @(#) $Id: btree.h,v 1.61 2005/01/12 07:15:05 danielk1977 Exp $
 */
 #ifndef _BTREE_H_
 #define _BTREE_H_
@@ -127,8 +127,12 @@ struct Pager *sqlite3BtreePager(Btree*);
 #ifdef SQLITE_TEST
 int sqlite3BtreeCursorInfo(BtCursor*, int*, int);
 void sqlite3BtreeCursorList(Btree*);
-int sqlite3BtreePageDump(Btree*, int, int recursive);
 #endif
 
+#ifdef SQLITE_DEBUG
+int sqlite3BtreePageDump(Btree*, int, int recursive);
+#else
+#define sqlite3BtreePageDump(X,Y,Z) SQLITE_OK
+#endif
 
 #endif /* _BTREE_H_ */

diff --git a/src/sqliteInt.h b/src/sqliteInt.h
index 99db739cbc5b0270790fff79ed6743b5e000d247..23300cc8c00b0d62aef1c23afb23380901409f68 100644 (file)
--- a/src/sqliteInt.h
+++ b/src/sqliteInt.h
@@ -11,7 +11,7 @@
 *************************************************************************
 ** Internal interface definitions for SQLite.
 **
-** @(#) $Id: sqliteInt.h,v 1.351 2005/01/08 18:42:28 drh Exp $
+** @(#) $Id: sqliteInt.h,v 1.352 2005/01/12 07:15:05 danielk1977 Exp $
 */
 #ifndef _SQLITEINT_H_
 #define _SQLITEINT_H_
@@ -231,7 +231,7 @@ struct BusyHandler {
 ** each malloc() and free().  This output can be analyzed
 ** by an AWK script to determine if there are any leaks.
 */
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
 # define sqliteMalloc(X)    sqlite3Malloc_(X,1,__FILE__,__LINE__)
 # define sqliteMallocRaw(X) sqlite3Malloc_(X,0,__FILE__,__LINE__)
 # define sqliteFree(X)      sqlite3Free_(X,__FILE__,__LINE__)
@@ -257,7 +257,7 @@ extern int sqlite3_malloc_failed;
 ** The following global variables are used for testing and debugging
 ** only.  They only work if SQLITE_DEBUG is defined.
 */
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
 extern int sqlite3_nMalloc;      /* Number of sqliteMalloc() calls */
 extern int sqlite3_nFree;        /* Number of sqliteFree() calls */
 extern int sqlite3_iMallocFail;  /* Fail sqliteMalloc() after this many calls */
@@ -1280,7 +1280,7 @@ int sqlite3IsNumber(const char*, int*, u8);
 int sqlite3Compare(const char *, const char *);
 int sqlite3SortCompare(const char *, const char *);
 void sqlite3RealToSortable(double r, char *);
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
   void *sqlite3Malloc_(int,int,char*,int);
   void sqlite3Free_(void*,char*,int);
   void *sqlite3Realloc_(void*,int,char*,int);

diff --git a/src/test1.c b/src/test1.c
index b75fbb30c5dc3accacc775c7a199db70a30b8d58..152765306bcebfa407a5639c5bb8d08dc23e33d7 100644 (file)
--- a/src/test1.c
+++ b/src/test1.c
@@ -13,7 +13,7 @@
 ** is not included in the SQLite library.  It is used for automated
 ** testing of the SQLite library.
 **
-** $Id: test1.c,v 1.119 2005/01/11 16:54:15 drh Exp $
+** $Id: test1.c,v 1.120 2005/01/12 07:15:05 danielk1977 Exp $
 */
 #include "sqliteInt.h"
 #include "tcl.h"
@@ -756,7 +756,7 @@ static int sqlite3_mprintf_stronly(
 **
 ** Turn off this mechanism and reset the sqlite3_malloc_failed variable is N==0.
 */
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
 static int sqlite_malloc_fail(
   void *NotUsed,
   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
@@ -787,7 +787,7 @@ static int sqlite_malloc_fail(
 **
 ** Return the number of prior calls to sqliteMalloc() and sqliteFree().
 */
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
 static int sqlite_malloc_stat(
   void *NotUsed,
   Tcl_Interp *interp,    /* The TCL interpreter that invoked this command */
@@ -2749,7 +2749,7 @@ int Sqlitetest1_Init(Tcl_Interp *interp){
      { "sqlite3_create_aggregate",      (Tcl_CmdProc*)test_create_aggregate },
      { "sqlite_register_test_function", (Tcl_CmdProc*)test_register_func    },
      { "sqlite_abort",                  (Tcl_CmdProc*)sqlite_abort          },
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
      { "sqlite_malloc_fail",            (Tcl_CmdProc*)sqlite_malloc_fail    },
      { "sqlite_malloc_stat",            (Tcl_CmdProc*)sqlite_malloc_stat    },
 #endif

diff --git a/src/utf.c b/src/utf.c
index b223a03e59afab75ec25e870c06a6ba8e3fa44e4..5734635bb0d175234f47b758cd57321f2fe6e54c 100644 (file)
--- a/src/utf.c
+++ b/src/utf.c
@@ -12,7 +12,7 @@
 ** This file contains routines used to translate between UTF-8, 
 ** UTF-16, UTF-16BE, and UTF-16LE.
 **
-** $Id: utf.c,v 1.30 2004/11/14 21:56:30 drh Exp $
+** $Id: utf.c,v 1.31 2005/01/12 07:15:06 danielk1977 Exp $
 **
 ** Notes on UTF-8:
 **
@@ -252,7 +252,7 @@ int sqlite3VdbeMemTranslate(Mem *pMem, u8 desiredEnc){
   assert( pMem->enc!=0 );
   assert( pMem->n>=0 );
 
-#ifdef TRANSLATE_TRACE
+#if defined(TRANSLATE_TRACE) && defined(SQLITE_DEBUG)
   {
     char zBuf[100];
     sqlite3VdbeMemPrettyPrint(pMem, zBuf, 100);
@@ -368,7 +368,7 @@ int sqlite3VdbeMemTranslate(Mem *pMem, u8 desiredEnc){
   pMem->z = zOut;
 
 translate_out:
-#ifdef TRANSLATE_TRACE
+#if defined(TRANSLATE_TRACE) && defined(SQLITE_DEBUG)
   {
     char zBuf[100];
     sqlite3VdbeMemPrettyPrint(pMem, zBuf, 100);

diff --git a/src/util.c b/src/util.c
index 988372ce1a659a3f3661367345f04991dc376525..ef3eb191e7a1cce11cf0f72e3c9140131aa03b9c 100644 (file)
--- a/src/util.c
+++ b/src/util.c
@@ -14,7 +14,7 @@
 ** This file contains functions for allocating memory, comparing
 ** strings, and stuff like that.
 **
-** $Id: util.c,v 1.124 2005/01/11 15:28:33 drh Exp $
+** $Id: util.c,v 1.125 2005/01/12 07:15:06 danielk1977 Exp $
 */
 #include "sqliteInt.h"
 #include <stdarg.h>
@@ -44,10 +44,10 @@ void print_stack_trace(){
 int sqlite3_malloc_failed = 0;
 
 /*
-** If SQLITE_DEBUG is defined, then use versions of malloc() and
+** If SQLITE_TEST is defined, then use versions of malloc() and
 ** free() that track memory usage and check for buffer overruns.
 */
-#ifdef SQLITE_DEBUG
+#ifdef SQLITE_TEST
 
 /*
 ** For keeping track of the number of mallocs and frees.   This
@@ -251,7 +251,7 @@ void sqlite3FreeX(void *p){
 ** The following versions of malloc() and free() are for use in a
 ** normal build.
 */
-#if !defined(SQLITE_DEBUG)
+#if !defined(SQLITE_TEST)
 
 /*
 ** Allocate new memory and set it to zero.  Return NULL if
@@ -329,7 +329,7 @@ char *sqlite3StrNDup(const char *z, int n){
   }
   return zNew;
 }
-#endif /* !defined(SQLITE_DEBUG) */
+#endif /* !defined(SQLITE_TEST) */
 
 /*
 ** Create a string from the 2nd and subsequent arguments (up to the

diff --git a/src/vdbe.c b/src/vdbe.c
index edc3e732e35f97440a826426f08eeae3b8c1efd0..e5992d271e3ea06c8d3c0da8f4f860c374cfc0cd 100644 (file)
--- a/src/vdbe.c
+++ b/src/vdbe.c
@@ -43,7 +43,7 @@
 ** in this file for details.  If in doubt, do not deviate from existing
 ** commenting and indentation practices when changing or adding code.
 **
-** $Id: vdbe.c,v 1.440 2005/01/11 13:02:34 danielk1977 Exp $
+** $Id: vdbe.c,v 1.441 2005/01/12 07:15:06 danielk1977 Exp $
 */
 #include "sqliteInt.h"
 #include "os.h"
@@ -303,7 +303,7 @@ static void applyAffinity(Mem *pRec, char affinity, u8 enc){
   }
 }
 
-#ifndef NDEBUG
+#ifdef SQLITE_DEBUG
 /*
 ** Write a nice string representation of the contents of cell pMem
 ** into buffer zBuf, length nBuf.
@@ -4519,6 +4519,8 @@ default: {
       sqlite3SetString(&p->zErrMsg, "jump destination out of range", (char*)0);
       rc = SQLITE_INTERNAL;
     }
+#ifdef SQLITE_DEBUG
+    /* Code for tracing the vdbe stack. */
     if( p->trace && pTos>=p->aStack ){
       int i;
       fprintf(p->trace, "Stack:");
@@ -4541,7 +4543,8 @@ default: {
       if( rc!=0 ) fprintf(p->trace," rc=%d",rc);
       fprintf(p->trace,"\n");
     }
-#endif
+#endif  /* SQLITE_DEBUG */
+#endif  /* NDEBUG */
   }  /* The end of the for(;;) loop the loops through opcodes */
 
   /* If we reach this point, it means that execution is finished.

diff --git a/src/vdbemem.c b/src/vdbemem.c
index 1a522783ade186b348162a1bb7ed0775f9b183df..04a617130b757eab465c7096175142c51b6e748c 100644 (file)
--- a/src/vdbemem.c
+++ b/src/vdbemem.c
@@ -394,6 +394,8 @@ int sqlite3VdbeMemSetStr(
   pMem->type = enc==0 ? SQLITE_BLOB : SQLITE_TEXT;
   pMem->n = n;
 
+  assert( enc==0 || enc==SQLITE_UTF8 || enc==SQLITE_UTF16LE 
+      || enc==SQLITE_UTF16BE );
   switch( enc ){
     case 0:
       pMem->flags |= MEM_Blob;
@@ -418,11 +420,7 @@ int sqlite3VdbeMemSetStr(
       if( sqlite3VdbeMemHandleBom(pMem) ){
         return SQLITE_NOMEM;
       }
-      break;
 #endif /* SQLITE_OMIT_UTF16 */
-
-    default:
-      assert(0);
   }
   if( pMem->flags&MEM_Ephem ){
     return sqlite3VdbeMemMakeWriteable(pMem);

diff --git a/test/all.test b/test/all.test
index c99808d2918ce51ae731be355af99a873503ba7f..6ba2571858bae2f0b913e31c698314898fbfcbf9 100644 (file)
--- a/test/all.test
+++ b/test/all.test
@@ -10,7 +10,7 @@
 #***********************************************************************
 # This file runs all tests.
 #
-# $Id: all.test,v 1.25 2005/01/08 02:35:44 danielk1977 Exp $
+# $Id: all.test,v 1.26 2005/01/12 07:15:07 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -55,7 +55,6 @@ set EXCLUDE {
   malloc.test
   misuse.test
   memleak.test
-  corrupt.test
 }
 
 # Test files btree2.test and btree4.test don't work if the 

diff --git a/test/malloc.test b/test/malloc.test
index 57c6336ab85c16435dab6e8ac746d08f241ee0c3..3d8876024dd2d66c1b73b72f40143bd0cd40a07a 100644 (file)
--- a/test/malloc.test
+++ b/test/malloc.test
@@ -14,7 +14,7 @@
 # special feature is used to see what happens in the library if a malloc
 # were to really fail due to an out-of-memory situation.
 #
-# $Id: malloc.test,v 1.13 2005/01/11 13:02:34 danielk1977 Exp $
+# $Id: malloc.test,v 1.14 2005/01/12 07:15:07 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -316,10 +316,13 @@ for {set go 1; set i 1} {$go} {incr i} {
        INSERT INTO t1 VALUES(1, 2);
        INSERT INTO t1 VALUES(3, 4);
        INSERT INTO t1 VALUES(5, 6);
+       INSERT INTO t1 VALUES(7, randstr(1200,1200));
      }
      sqlite_malloc_fail $i
      set v [catch {execsql {
-       SELECT min(a) FROM t1 GROUP BY b;
+       SELECT min(a) FROM t1 WHERE a<6 GROUP BY b;
+       SELECT a FROM t1 WHERE a<6 ORDER BY a;
+       SELECT b FROM t1 WHERE a>6;
      }} msg]
      set leftover [lindex [sqlite_malloc_stat] 2]
      if {$leftover>0} {
@@ -334,8 +337,53 @@ for {set go 1; set i 1} {$go} {incr i} {
   } {1 1}
 }
 
+# This block is designed to test that some malloc failures that may
+# occur in vdbeapi.c. Specifically, if a malloc failure that occurs
+# when converting UTF-16 text to integers and real numbers is handled
+# correctly. 
+#
+# This doesn't actually return an error to the user. That could be 
+# viewed as a bug.
+#
+for {set go 1; set i 1} {$go && $::sqlite_options(utf16)} {incr i} {
+  do_test malloc-8.$i {
+     sqlite_malloc_fail 0
+     catch {db close}
+     catch {file delete -force test.db}
+     catch {file delete -force test.db-journal}
+
+     set ::DB [sqlite3 db test.db]
+     set sql "SELECT '[string repeat abc 20]', '[string repeat def 20]', ?"
+     set ::STMT [sqlite3_prepare $::DB $sql -1 X]
+     sqlite3_step $::STMT
+
+     if { $::tcl_platform(byteOrder)=="littleEndian" } {
+       set ::bomstr "\xFF\xFE"
+     } else {
+       set ::bomstr "\xFE\xFF"
+     }
+     append ::bomstr [encoding convertto unicode "123456789_123456789_12345678"]
+
+     sqlite_malloc_fail $i
+     catch {
+       sqlite3_column_text16 $::STMT 0
+       sqlite3_column_int $::STMT 0
+       sqlite3_column_text16 $::STMT 1
+       sqlite3_column_double $::STMT 1
+       sqlite3_reset $::STMT
+       sqlite3_bind_text16 $::STMT 1 $::bomstr 60
+       
+     } msg
+     sqlite3_finalize $::STMT
+     if {[lindex [sqlite_malloc_stat] 2]>0} {
+       set ::go 0
+     }
+     expr 0
+  } {0}
+}
+
 # Ensure that no file descriptors were leaked.
-do_test malloc-6.X {
+do_test malloc-99.X {
   catch {db close}
   set sqlite_open_file_count
 } {0}