Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further tweaks related to deleting files from malloc_common.tcl. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3e649f80e2a1b2e098f6ca32994ba401 |
| User & Date: | dan 2010-09-16 16:16:07 |
Context
|
2010-09-16
| ||
| 18:51 | Add tests for ORDER BY, LIMIT and OFFSET clauses to e_select.test. check-in: 7c989db5 user: dan tags: trunk | |
| 16:16 | Further tweaks related to deleting files from malloc_common.tcl. check-in: 3e649f80 user: dan tags: trunk | |
| 15:58 | Fix a problem with the previous change to malloc_common.tcl. check-in: e07a33ea user: dan tags: trunk | |
Changes
Changes to test/tester.tcl.
609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 |
#
# 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.
for {set i 0} {$i<$nRetry} {incr i} {
set rc [catch {file delete -force $filename} msg]
if {$rc==0} continue
after $nDelay
}
if {$rc} { error $msg }
}
# Do an integrity check of the entire database
#
|
| |
609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 |
#
# 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.
for {set i 0} {$i<$nRetry} {incr i} {
set rc [catch {file delete -force $filename} msg]
if {$rc==0} break
after $nDelay
}
if {$rc} { error $msg }
}
# Do an integrity check of the entire database
#
|