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/malloc_common.tcl
View File

@ -143,7 +143,7 @@ proc do_faultsim_test {name args} {
# faultsim_delete_and_reopen
#
proc faultsim_save {} {
foreach f [glob -nocomplain sv_test.db*] { file delete -force $f }
foreach f [glob -nocomplain sv_test.db*] { forcedelete $f }
foreach f [glob -nocomplain test.db*] {
set f2 "sv_$f"
file copy -force $f $f2
@ -155,7 +155,7 @@ proc faultsim_save_and_close {} {
return ""
}
proc faultsim_restore {} {
foreach f [glob -nocomplain test.db*] { file delete -force $f }
foreach f [glob -nocomplain test.db*] { forcedelete $f }
foreach f2 [glob -nocomplain sv_test.db*] {
set f [string range $f2 3 end]
file copy -force $f2 $f
@ -422,12 +422,12 @@ proc do_malloc_test {tn args} {
#
catch {db close}
catch {db2 close}
catch {file delete -force test.db}
catch {file delete -force test.db-journal}
catch {file delete -force test.db-wal}
catch {file delete -force test2.db}
catch {file delete -force test2.db-journal}
catch {file delete -force test2.db-wal}
forcedelete test.db
forcedelete test.db-journal
forcedelete test.db-wal
forcedelete test2.db
forcedelete test2.db-journal
forcedelete test2.db-wal
if {[info exists ::mallocopts(-testdb)]} {
file copy $::mallocopts(-testdb) test.db
}