commit ed13d98c8c68c5cb2addee3a2a2fedb4ea639b26
author drh <drh@noemail.net> Thu Jan 31 14:43:24 2008 +0000
committer drh <drh@noemail.net> Thu Jan 31 14:43:24 2008 +0000
tree 7ea9722ab4db225b7dab1c1262ebbdd5c9002235
parent 820a90694e186c6f25bc081dd4ad8162378b9c15

Add the sqlite3_test_control() API.  Use it to control the fault injector. (CVS 4758)

FossilOrigin-Name: 413ddade6a13f993cddc57389d1107d82fa19972

src/test_malloc.c

diff --git a/src/test_malloc.c b/src/test_malloc.c
index 237cb96..d581ea3 100644
--- a/src/test_malloc.c
+++ b/src/test_malloc.c
@@ -13,7 +13,7 @@
 ** This file contains code used to implement test interfaces to the
 ** memory allocation subsystem.
 **
-** $Id: test_malloc.c,v 1.10 2008/01/22 21:30:53 drh Exp $
+** $Id: test_malloc.c,v 1.11 2008/01/31 14:43:24 drh Exp $
 */
 #include "sqliteInt.h"
 #include "tcl.h"
@@ -410,9 +410,12 @@
     }
   }
   
-  nBenign = sqlite3FaultBenignFailures(SQLITE_FAULTINJECTOR_MALLOC);
-  nFail = sqlite3FaultFailures(SQLITE_FAULTINJECTOR_MALLOC);
-  sqlite3FaultConfig(SQLITE_FAULTINJECTOR_MALLOC, iFail, nRepeat);
+  nBenign = sqlite3_test_control(SQLITE_TESTCTRL_FAULT_BENIGN_FAILURES,
+                                 SQLITE_FAULTINJECTOR_MALLOC);
+  nFail = sqlite3_test_control(SQLITE_TESTCTRL_FAULT_FAILURES,
+                               SQLITE_FAULTINJECTOR_MALLOC);
+  sqlite3_test_control(SQLITE_TESTCTRL_FAULT_CONFIG,
+                       SQLITE_FAULTINJECTOR_MALLOC, iFail, nRepeat);
   if( pBenignCnt ){
     Tcl_ObjSetVar2(interp, pBenignCnt, 0, Tcl_NewIntObj(nBenign), 0);
   }
@@ -440,9 +443,9 @@
 
 #ifdef SQLITE_MEMDEBUG
   {
-    Tcl_SetObjResult(interp, 
-       Tcl_NewIntObj(sqlite3FaultPending(SQLITE_FAULTINJECTOR_MALLOC))
-    );
+    int nPending = sqlite3_test_control(SQLITE_TESTCTRL_FAULT_PENDING,
+                                        SQLITE_FAULTINJECTOR_MALLOC);
+    Tcl_SetObjResult(interp, Tcl_NewIntObj(nPending));
   }
 #endif
   return TCL_OK;