Do not attempt run backwards compatibility tests if no historical

"testfixture" binaries are available.

FossilOrigin-Name: 40e11aabc7668e1c9db43d9183edb445996254bd

1 files changed, 8 insertions, 5 deletions

diff --git a/test/backcompat.test b/test/backcompat.test
index 40f25cdbd..bab83902f 100644
--- a/test/backcompat.test
+++ b/test/backcompat.test
@@ -34,15 +34,16 @@ db close
 # against.
 #
 set binaries [list]
-set pattern "[file tail [info nameofexec]]*"
+set pattern "[file tail [info nameofexec]]?*"
 if {$tcl_platform(platform)=="windows"} {
   set pattern [string map {\.exe {}} $pattern]
 }
-foreach file [glob $pattern] {
-  if {[file executable $file]} {lappend binaries $file}
+foreach file [glob -nocomplain $pattern] {
+  if {[file executable $file] && } {lappend binaries $file}
 }
 if {[llength $binaries]==0} {
-  puts "WARNING: No binaries to test against. No tests have been run."
+  puts "WARNING: No historical binaries to test against."
+  puts "WARNING: No backwards-compatibility tests have been run."
   finish_test
   return
 }
@@ -53,7 +54,9 @@ proc get_version {binary} {
   set v
 }
 foreach bin $binaries {
-  puts "Testing against $bin - version [get_version $bin]"
+  puts -nonewline "Testing against $bin - "
+  flush stdout
+  puts "version [get_version $bin]"
 }
 
 proc do_backcompat_test {rv bin1 bin2 script} {