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 |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
daa5d461b98fc068cbba52d338ca8690 |
User & Date: | dan 2010-08-20 12:31:30.000 |
Context
2010-08-20
| ||
12:34 | Merge leaf created by accident. (check-in: 1f680cb375 user: dan tags: trunk) | |
12:31 | Avoid assuming that the user has "." in their path when running multi-process tests. (check-in: daa5d461b9 user: dan tags: trunk) | |
2010-08-19
| ||
17:16 | Fix backcompat.test so that it works with windows mandatory locking. (check-in: 8d05f66db7 user: dan tags: trunk) | |
Changes
Changes to test/lock_common.tcl.
︙ | ︙ | |||
63 64 65 66 67 68 69 | # 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 | | > | 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" |
︙ | ︙ |