database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Change code in malloc_common.tcl (test code) to retry a "file delete -force" if

Browse Source 
it fails.

FossilOrigin-Name: ebfb04f00c839601d92d33b9c2305fc4ce869bbc
This commit is contained in:
dan
2010-09-16 15:23:07 +00:00
parent ddbb6b48c9
commit d78fe8e380
4 changed files with 31 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/tester.tcl
View File

@ -601,9 +601,21 @@ proc stepsql {dbptr sql} {
# Delete a file or directory
#
proc forcedelete {filename} {
if {[catch {file delete -force $filename}]} {
exec rm -rf $filename
# On windows, sometimes even a [file delete -force] can fail just after
# a file is closed. The cause is usually "tag-alongs" - programs like
# anti-virus software, automatic backup tools and various explorer
# extensions that keep a file open a little longer than we expect, causing
# the delete to fail.
#
# The solution is to wait a short amount of time before retrying the delete.
#
set nRetry 50 ;# Maximum number of retries.
set nDelay 100 ;# Delay in ms before retrying.
set rc 1
for {set i 0} {$i<$nRetry && $rc} {incr i} {
set rc [catch {file delete -force $filename} msg]
}
if {$rc} { error $msg }
}
# Do an integrity check of the entire database