mirror of
https://github.com/sqlite/sqlite.git
synced 2025-07-30 19:03:16 +03:00
On instruction from DRH, only do malloc failure tests for O/S ops on non-Windows systems. Better test fixture code will be introduced in 3.6.0 to add this coverage back in for Windows. (CVS 5130)
FossilOrigin-Name: e4aab150042bd22868ab02645151cb69a1c02ba0
This commit is contained in:
@ -13,7 +13,7 @@
|
||||
# correctly. The emphasis of these tests are the _prepare(), _step() and
|
||||
# _finalize() calls.
|
||||
#
|
||||
# $Id: malloc3.test,v 1.22 2008/05/13 13:27:34 drh Exp $
|
||||
# $Id: malloc3.test,v 1.23 2008/05/13 19:41:54 shane Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
@ -562,18 +562,15 @@ proc run_test {arglist iRepeat {pcstart 0} {iFailStart 1}} {
|
||||
set ::rollback_hook_count 0
|
||||
|
||||
set ac [sqlite3_get_autocommit $::DB] ;# Auto-Commit
|
||||
if {$iterid=="pc=4.iFail=44-sql"} breakpoint
|
||||
sqlite3_memdebug_fail $iFail -repeat 0
|
||||
#puts sql=[lindex $v 1]
|
||||
set rc [catch {db eval [lindex $v 1]} msg] ;# True error occurs
|
||||
#puts "rc=$rc msg=$msg"
|
||||
set nac [sqlite3_get_autocommit $::DB] ;# New Auto-Commit
|
||||
|
||||
if {$rc != 0 && $nac && !$ac} {
|
||||
# Before [db eval] the auto-commit flag was clear. Now it
|
||||
# is set. Since an error occured we assume this was not a
|
||||
# commit - therefore a rollback occured. Check that the
|
||||
# rollback-hook was invoked.
|
||||
# commit - therefore a rollback occured. Check that the
|
||||
# rollback-hook was invoked.
|
||||
do_test malloc3-rollback_hook.$iterid {
|
||||
set ::rollback_hook_count
|
||||
} {1}
|
||||
|
Reference in New Issue
Block a user