1 2 3set testdir [file dirname $argv0] 4source $testdir/tester.tcl 5source $testdir/fts3_common.tcl 6source $testdir/malloc_common.tcl 7set ::testprefix fts4merge2 8 9# If SQLITE_ENABLE_FTS3 is defined, omit this file. 10ifcapable !fts3 { 11 finish_test 12 return 13} 14 15do_test 1.0 { 16 fts3_build_db_1 1000 17 faultsim_save_and_close 18} {} 19 20do_faultsim_test 1.1 -faults oom-* -prep { 21 faultsim_restore_and_reopen 22} -body { 23 execsql { INSERT INTO t1(t1) VALUES('merge=32,4') } 24} -test { 25 faultsim_test_result {0 {}} 26} 27 28do_faultsim_test 1.2 -faults oom-t* -prep { 29 if {$iFail<100} {set iFail 803} 30 faultsim_restore_and_reopen 31} -body { 32 execsql { INSERT INTO t1(t1) VALUES('merge=1,2') } 33 execsql { INSERT INTO t1(t1) VALUES('merge=1,2') } 34} -test { 35 faultsim_test_result {0 {}} 36} 37 38finish_test 39