diff options
| author | dan <dan@noemail.net> | 2019-04-05 16:52:45 +0000 |
|---|---|---|
| committer | dan <dan@noemail.net> | 2019-04-05 16:52:45 +0000 |
| commit | 94c7ab5038510e3eb84920f5ef2b0ec704d7b470 (patch) | |
| tree | bdd12defc3f8f92952747b6137850bb177b26801 /src | |
| parent | e3bd232e2df1f4e6f537ba25764ba7428b6acb22 (diff) | |
| download | sqlite-94c7ab5038510e3eb84920f5ef2b0ec704d7b470.tar.gz sqlite-94c7ab5038510e3eb84920f5ef2b0ec704d7b470.zip | |
In the test_vfs.c VFS, if a Tcl xWrite script returns "SQLITE_OMIT", silently omit the write() call.
FossilOrigin-Name: 8b5a621e2ee3bb9d7d4f905217872e7e59153be9477aaa626cea287d56710b5b
Diffstat (limited to 'src')
| -rw-r--r-- | src/test_vfs.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/test_vfs.c b/src/test_vfs.c index bf9fa6b53..43e872bb3 100644 --- a/src/test_vfs.c +++ b/src/test_vfs.c @@ -235,6 +235,7 @@ static int tvfsResultCode(Testvfs *p, int *pRc){ { SQLITE_BUSY, "SQLITE_BUSY" }, { SQLITE_READONLY, "SQLITE_READONLY" }, { SQLITE_READONLY_CANTINIT, "SQLITE_READONLY_CANTINIT" }, + { -1, "SQLITE_OMIT" }, }; const char *z; @@ -382,6 +383,7 @@ static int tvfsWrite( Tcl_NewWideIntObj(iOfst), Tcl_NewIntObj(iAmt) ); tvfsResultCode(p, &rc); + if( rc<0 ) return SQLITE_OK; } if( rc==SQLITE_OK && tvfsInjectFullerr(p) ){ |