/ Check-in [f625bce8]
Login

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

Overview
Comment:Fix the backcompat.test module so that it does not try to compare against itself on windows.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mp-releasetest
Files: files | file ages | folders
SHA1: f625bce8b7c2884a092c70675a9c6ce15c29937e
User & Date: drh 2015-11-02 23:21:17
Context
2015-11-02
23:29
Attempt to centralize and simplify the MSVC handling. check-in: 4ae96d6d user: mistachkin tags: mp-releasetest
23:21
Fix the backcompat.test module so that it does not try to compare against itself on windows. check-in: f625bce8 user: drh tags: mp-releasetest
21:05
Get things working better on Windows with MSVC. check-in: 22cc3e6c user: mistachkin tags: mp-releasetest
Changes
Hide Diffs Side-by-Side Diffs Show Whitespace Changes Patch

Changes to test/bc_common.tcl.

     3      3   
     4      4   proc bc_find_binaries {zCaption} {
     5      5     # Search for binaries to test against. Any executable files that match
     6      6     # our naming convention are assumed to be testfixture binaries to test
     7      7     # against.
     8      8     #
     9      9     set binaries [list]
    10         -  set pattern "[file tail [info nameofexec]]?*"
           10  +  set self [file tail [info nameofexec]]
           11  +  set pattern "$self?*"
    11     12     if {$::tcl_platform(platform)=="windows"} {
    12     13       set pattern [string map {\.exe {}} $pattern]
    13     14     }
    14     15     foreach file [glob -nocomplain $pattern] {
           16  +    if {$file==$self} continue
    15     17       if {[file executable $file] && [file isfile $file]} {lappend binaries $file}
    16     18     }
    17     19   
    18     20     if {[llength $binaries]==0} {
    19     21       puts "WARNING: No historical binaries to test against."
    20     22       puts "WARNING: Omitting backwards-compatibility tests"
    21     23     }