From 5016821ddf76c9f040b85e18d392bf109ac61edf Mon Sep 17 00:00:00 2001
From: sebres <info@sebres.de>
Date: Tue, 29 Oct 2024 21:25:55 +0100
Subject: [PATCH] **interim** failed tests must generate failure in GHA flow

---
 tests/all.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/all.tcl b/tests/all.tcl
index b7ddd82..0bf6245 100644
--- 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]"