/ 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 Unified Diffs Ignore Whitespace Patch

Changes to test/bc_common.tcl.

3
4
5
6
7
8
9
10

11
12
13
14

15
16
17
18
19
20
21

proc bc_find_binaries {zCaption} {
  # Search for binaries to test against. Any executable files that match
  # our naming convention are assumed to be testfixture binaries to test
  # against.
  #
  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] && [file isfile $file]} {lappend binaries $file}
  }

  if {[llength $binaries]==0} {
    puts "WARNING: No historical binaries to test against."
    puts "WARNING: Omitting backwards-compatibility tests"
  }







|
>




>







3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

proc bc_find_binaries {zCaption} {
  # Search for binaries to test against. Any executable files that match
  # our naming convention are assumed to be testfixture binaries to test
  # against.
  #
  set binaries [list]
  set self [file tail [info nameofexec]]
  set pattern "$self?*"
  if {$::tcl_platform(platform)=="windows"} {
    set pattern [string map {\.exe {}} $pattern]
  }
  foreach file [glob -nocomplain $pattern] {
    if {$file==$self} continue
    if {[file executable $file] && [file isfile $file]} {lappend binaries $file}
  }

  if {[llength $binaries]==0} {
    puts "WARNING: No historical binaries to test against."
    puts "WARNING: Omitting backwards-compatibility tests"
  }