/ Check-in [daa5d461]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Avoid assuming that the user has "." in their path when running multi-process tests.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:daa5d461b98fc068cbba52d338ca8690edd27bc9
User & Date: dan 2010-08-20 12:31:30
Context
2010-08-20
12:34
Merge leaf created by accident. check-in: 1f680cb3 user: dan tags: trunk
12:31
Avoid assuming that the user has "." in their path when running multi-process tests. check-in: daa5d461 user: dan tags: trunk
2010-08-19
17:16
Fix backcompat.test so that it works with windows mandatory locking. check-in: 8d05f66d user: dan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/lock_common.tcl.

63
64
65
66
67
68
69
70
71

72
73
74
75
76
77
78

# Launch another testfixture process to be controlled by this one. A
# channel name is returned that may be passed as the first argument to proc
# 'testfixture' to execute a command. The child testfixture process is shut
# down by closing the channel.
proc launch_testfixture {{prg ""}} {
  write_main_loop
  if {$prg eq ""} { set prg [info nameofexec] }
  if {$prg eq ""} { set prg [file join . testfixture] }

  set chan [open "|$prg tf_main.tcl" r+]
  fconfigure $chan -buffering line
  set rc [catch { 
    testfixture $chan "sqlite3_test_control_pending_byte $::sqlite_pending_byte"
  }]
  if {$rc} {
    testfixture $chan "set ::sqlite_pending_byte $::sqlite_pending_byte"







|

>







63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

# Launch another testfixture process to be controlled by this one. A
# channel name is returned that may be passed as the first argument to proc
# 'testfixture' to execute a command. The child testfixture process is shut
# down by closing the channel.
proc launch_testfixture {{prg ""}} {
  write_main_loop
  if {$prg eq ""} { set prg [file join . [info nameofexec]] }
  if {$prg eq ""} { set prg [file join . testfixture] }
  if {[file tail $prg]==$prg} { set prg [file join . $prg] }
  set chan [open "|$prg tf_main.tcl" r+]
  fconfigure $chan -buffering line
  set rc [catch { 
    testfixture $chan "sqlite3_test_control_pending_byte $::sqlite_pending_byte"
  }]
  if {$rc} {
    testfixture $chan "set ::sqlite_pending_byte $::sqlite_pending_byte"