Fix the backcompat.test module so that it does not try to compare against itself

on windows.

FossilOrigin-Name: f625bce8b7c2884a092c70675a9c6ce15c29937e
This commit is contained in:
drh 2015-11-02 23:21:17 +00:00
parent 59189433ba
commit 3e6d22ad4d
3 changed files with 11 additions and 9 deletions

View File

@ -1,5 +1,5 @@
C Get\sthings\sworking\sbetter\son\sWindows\swith\sMSVC.
D 2015-11-02T21:05:56.617
C Fix\sthe\sbackcompat.test\smodule\sso\sthat\sit\sdoes\snot\stry\sto\scompare\sagainst\sitself\non\swindows.
D 2015-11-02T23:21:17.389
F Makefile.in 4469ed8b02a9934fea9503d791165367d19db2f7
F Makefile.linux-gcc 7bc79876b875010e8c8f9502eb935ca92aa3c434
F Makefile.msc 702d3e98f3afc6587a78481257f3c4c900efc3a4
@ -480,7 +480,7 @@ F test/backup_ioerr.test 4c3c7147cee85b024ecf6e150e090c32fdbb5135
F test/backup_malloc.test 7162d604ec2b4683c4b3799a48657fb8b5e2d450
F test/badutf.test d5360fc31f643d37a973ab0d8b4fb85799c3169f
F test/badutf2.test f5bc7f2d280670ecd79b9cf4f0f1760c607fe51f
F test/bc_common.tcl 5c8689cc6d2fb44b7c0968ae4f85eb26d50022fa
F test/bc_common.tcl 3eda41ef9cda7d5f6c205462c96228b301da4191
F test/between.test 34d375fb5ce1ae283ffe82b6b233e9f38e84fc6c
F test/bigfile.test aa74f4e5db51c8e54a1d9de9fa65d01d1eb20b59
F test/bigfile2.test 1b489a3a39ae90c7f027b79110d6b4e1dbc71bfc
@ -1397,7 +1397,7 @@ F tool/vdbe_profile.tcl 246d0da094856d72d2c12efec03250d71639d19f
F tool/warnings-clang.sh f6aa929dc20ef1f856af04a730772f59283631d4
F tool/warnings.sh 48bd54594752d5be3337f12c72f28d2080cb630b
F tool/win/sqlite.vsix deb315d026cc8400325c5863eef847784a219a2f
P e565e0261501e4c21e4ad3d12f9f5b24c761bf96
R 1187737c11e82a8337e5d517b5bc7406
U mistachkin
Z 7eb3b356bb9807dcced0017ec4636c5d
P 22cc3e6c8e7f7eed854f8a50138ccb9c79bb7a23
R c5c631dd7ea4596095ad68ee5913e438
U drh
Z 0cc762df2756575e67d282e298d9c9ef

View File

@ -1 +1 @@
22cc3e6c8e7f7eed854f8a50138ccb9c79bb7a23
f625bce8b7c2884a092c70675a9c6ce15c29937e

View File

@ -7,11 +7,13 @@ proc bc_find_binaries {zCaption} {
# against.
#
set binaries [list]
set pattern "[file tail [info nameofexec]]?*"
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}
}