[gentoo-commits] repo/gentoo:master commit in: dev-tcltk/tcllib/files/

[Alfredo Tupone]

commit:     9ae7c5e79e427fb55ee288a4e394074f0c05413b
Author:     Alfredo Tupone <tupone <AT> gentoo <DOT> org>
AuthorDate: Fri Mar  6 15:28:50 2026 +0000
Commit:     Alfredo Tupone <tupone <AT> gentoo <DOT> org>
CommitDate: Fri Mar  6 15:28:50 2026 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=9ae7c5e7

dev-tcltk/tcllib: fix test for tcl-9

Signed-off-by: Alfredo Tupone <tupone <AT> gentoo.org>

 dev-tcltk/tcllib/files/tcllib-2.0-test.patch | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/dev-tcltk/tcllib/files/tcllib-2.0-test.patch 
b/dev-tcltk/tcllib/files/tcllib-2.0-test.patch
index a811948370cf..affa1043073b 100644
--- a/dev-tcltk/tcllib/files/tcllib-2.0-test.patch
+++ b/dev-tcltk/tcllib/files/tcllib-2.0-test.patch
@@ -89,3 +89,23 @@
      wsResetHandler
      wsResetSleep
      wsExpectHandler $expectNum
+--- a/modules/hook/hook.test   2026-03-06 16:11:41.444445375 +0100
++++ b/modules/hook/hook.test   2026-03-06 16:13:38.776027335 +0100
+@@ -450,7 +450,7 @@
+ } -cleanup {
+     cleanup
+ } -result [tcltest::byConstraint {
+-    tcl9plus {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 
-errorstack {INNER {returnImm {simulated error} {}} UP 1 CALL {::hook::call S1 
<H1>}} -errorcode NONE}}}
++    tcl9plus {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 
-errorstack {INNER {error {simulated error}} UP 1 CALL {::hook::call S1 <H1>}} 
-errorcode NONE}}}
+     tcl8.6.10plus {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 
-errorstack {INNER {error {simulated error}} UP 1 CALL {::hook::call S1 <H1>}} 
-errorcode NONE}}}
+     tcl8.6not10   {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 
-errorstack {INNER {error {simulated error}} UP 1 CALL {call S1 <H1>}} 
-errorcode NONE}}}
+     tcl8.5only   {{{S1 <H1> {} O1} {simulated error} {-code 1 -level 0 
-errorcode NONE}}}
+@@ -467,7 +467,7 @@
+ } -cleanup {
+     cleanup
+ } -result [tcltest::byConstraint {
+-    tcl9plus {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} {simulated 
error} {-code 1 -level 0 -errorstack {INNER {returnImm {simulated error} {}} UP 
1 CALL {::hook::call S1 <H1>}} -errorcode NONE}}}}
++    tcl9plus {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} {simulated 
error} {-code 1 -level 0 -errorstack {INNER {error {simulated error}} UP 1 CALL 
{::hook::call S1 <H1>}} -errorcode NONE}}}}
+     tcl8.6.10plus {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} 
{simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated 
error}} UP 1 CALL {::hook::call S1 <H1>}} -errorcode NONE}}}}
+     tcl8.6not10   {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} 
{simulated error} {-code 1 -level 0 -errorstack {INNER {error {simulated 
error}} UP 1 CALL {call S1 <H1>}} -errorcode NONE}}}}
+     tcl8.5only   {{{S1 <H1> O1 {}} {S1 <H1> O3 {}}} {{{S1 <H1> {} O2} 
{simulated error} {-code 1 -level 0 -errorcode NONE}}}}