**interim** failed tests must generate failure in GHA flow

sebres · Oct 29, 2024 · 5016821 · 5016821
1 parent 723c71d
commit 5016821
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/all.tcl b/tests/all.tcl
@@ -93,6 +93,7 @@ puts [outputChannel] "\n[string repeat ==== 20]"
 ::tcltest::cleanupTests 1
 
 # if calling direct:
+puts "******[subst {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]}] *****"
 if {[info exists ::argv0] && [file tail $::argv0] eq [file tail [info script]]} {
   if {$::TestSummary(TotFailed)} {
     puts stderr "\n[string repeat ** 20]"