diff options
| author | drh <drh@noemail.net> | 2008-01-31 14:43:24 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2008-01-31 14:43:24 +0000 |
| commit | ed13d98c8c68c5cb2addee3a2a2fedb4ea639b26 (patch) | |
| tree | 7ea9722ab4db225b7dab1c1262ebbdd5c9002235 /src/test_malloc.c | |
| parent | 820a90694e186c6f25bc081dd4ad8162378b9c15 (diff) | |
| download | sqlite-ed13d98c8c68c5cb2addee3a2a2fedb4ea639b26.tar.gz sqlite-ed13d98c8c68c5cb2addee3a2a2fedb4ea639b26.zip | |
Add the sqlite3_test_control() API. Use it to control the fault injector. (CVS 4758)
FossilOrigin-Name: 413ddade6a13f993cddc57389d1107d82fa19972
Diffstat (limited to 'src/test_malloc.c')
| -rw-r--r-- | src/test_malloc.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/test_malloc.c b/src/test_malloc.c index 237cb96aa..d581ea3bf 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 @@ static int test_memdebug_fail( } } - 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 @@ static int test_memdebug_pending( #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; |