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: |
daa5d461b98fc068cbba52d338ca8690 |
| 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
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"
|