From 6e79ab57699b5961ccb78bfb5b1bab72c0bea2f4 Mon Sep 17 00:00:00 2001
From: Julian Noble <julian@precisium.com.au>
Date: Tue, 4 Aug 2026 00:34:10 +1000
Subject: [PATCH] bootsupport: promote tcltestrun 0.4.1 (errorInfo/errorCode
 capture normalization)

make.tcl modules + bootsupport outputs (punkcheck-managed): punk/tcltestrun
0.4.0 -> 0.4.1. The runner parent loads this copy - promotion puts the
normalized errorInfo/errorCode capture in front of runtests.tcl.

Assisted-by: harness=claude; primary-model=claude-fable-5; api-location=anthropic.com
---
 .../{tcltestrun-0.4.0.tm => tcltestrun-0.4.1.tm}     | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)
 rename src/bootsupport/modules/punk/{tcltestrun-0.4.0.tm => tcltestrun-0.4.1.tm} (98%)

diff --git a/src/bootsupport/modules/punk/tcltestrun-0.4.0.tm b/src/bootsupport/modules/punk/tcltestrun-0.4.1.tm
similarity index 98%
rename from src/bootsupport/modules/punk/tcltestrun-0.4.0.tm
rename to src/bootsupport/modules/punk/tcltestrun-0.4.1.tm
index 8682d2fd..f6ef9307 100644
--- a/src/bootsupport/modules/punk/tcltestrun-0.4.0.tm
+++ b/src/bootsupport/modules/punk/tcltestrun-0.4.1.tm
@@ -8,7 +8,7 @@
 # (C) 2026
 #
 # @@ Meta Begin
-# Application punk::tcltestrun 0.4.0
+# Application punk::tcltestrun 0.4.1
 # Meta platform     tcl
 # Meta license      BSD
 # @@ Meta End
@@ -292,10 +292,14 @@ tcl::namespace::eval punk::tcltestrun {
                             if {$fail_stage eq "error" && ![string match "==== * FAILED" $ln_trimright]} {
                                 if {[string match "---- errorInfo: *" $ln]} {
                                     dict append results out "<stdout><$pkg> $ln" \n
-                                    dict append test_case_fail errorinfo "[string range $ln 15 end]\n"
+                                    #"---- errorInfo: " is 16 chars (indices 0-15) - capture from index 16
+                                    #so the value carries no leading space (0.4.1; historically ranged from
+                                    #15 and every captured value led with the prefix's trailing space)
+                                    dict append test_case_fail errorinfo "[string range $ln 16 end]\n"
                                     continue
                                 } elseif {[string match "---- errorCode: *" $ln]} {
-                                    dict set test_case_fail errorcode "[string range $ln 15 end]"
+                                    #same 16-char prefix and index-16 capture as errorInfo above (0.4.1)
+                                    dict set test_case_fail errorcode "[string range $ln 16 end]"
                                     dict append results out "<stdout><$pkg> $ln" \n
                                     continue
                                 } elseif {[string match "---- *" $ln]} {
@@ -637,7 +641,7 @@ namespace eval ::punk::args::register {
 package provide punk::tcltestrun [tcl::namespace::eval punk::tcltestrun {
     variable pkg punk::tcltestrun
     variable version
-    set version 0.4.0
+    set version 0.4.1
 }]
 return