/ Check-in [6a0cbb27]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

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

Overview
Comment:Fix typo in backcompat.test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 6a0cbb272c3f0c1dfdeed381ba92f2f2f16ae824
User & Date: dan 2010-08-20 12:43:01
Context
2010-08-20
15:32
Do not allow a backup to change the page size if a codec is in use. check-in: 5523ecd3 user: drh tags: trunk
12:43
Fix typo in backcompat.test. check-in: 6a0cbb27 user: dan tags: trunk
12:34
Merge leaf created by accident. check-in: 1f680cb3 user: dan tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Show Whitespace Changes Patch

Changes to test/backcompat.test.

    35     35   #
    36     36   set binaries [list]
    37     37   set pattern "[file tail [info nameofexec]]?*"
    38     38   if {$tcl_platform(platform)=="windows"} {
    39     39     set pattern [string map {\.exe {}} $pattern]
    40     40   }
    41     41   foreach file [glob -nocomplain $pattern] {
    42         -  if {[file executable $file] && } {lappend binaries $file}
           42  +  if {[file executable $file]} {lappend binaries $file}
    43     43   }
    44     44   if {[llength $binaries]==0} {
    45     45     puts "WARNING: No historical binaries to test against."
    46     46     puts "WARNING: No backwards-compatibility tests have been run."
    47     47     finish_test
    48     48     return
    49     49   }

Changes to test/lock_common.tcl.

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