/ Check-in [3e649f80]
Login

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: 3e649f80e2a1b2e098f6ca32994ba40157271e69
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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
#