Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix typo in backcompat.test. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
6a0cbb272c3f0c1dfdeed381ba92f2f2 |
User & Date: | dan 2010-08-20 12:43:01.000 |
Context
2010-08-20
| ||
15:32 | Do not allow a backup to change the page size if a codec is in use. (check-in: 5523ecd322 user: drh tags: trunk) | |
12:43 | Fix typo in backcompat.test. (check-in: 6a0cbb272c user: dan tags: trunk) | |
12:34 | Merge leaf created by accident. (check-in: 1f680cb375 user: dan tags: trunk) | |
Changes
Changes to test/backcompat.test.
︙ | ︙ | |||
35 36 37 38 39 40 41 | # set binaries [list] set pattern "[file tail [info nameofexec]]?*" if {$tcl_platform(platform)=="windows"} { set pattern [string map {\.exe {}} $pattern] } foreach file [glob -nocomplain $pattern] { | | | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | # set binaries [list] set pattern "[file tail [info nameofexec]]?*" if {$tcl_platform(platform)=="windows"} { set pattern [string map {\.exe {}} $pattern] } foreach file [glob -nocomplain $pattern] { if {[file executable $file]} {lappend binaries $file} } if {[llength $binaries]==0} { puts "WARNING: No historical binaries to test against." puts "WARNING: No backwards-compatibility tests have been run." finish_test return } |
︙ | ︙ |
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 | # 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 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} { |
︙ | ︙ |