From 93dec9938719ba6b9d9da3a5e4b7fbeff4515a66 Mon Sep 17 00:00:00 2001 From: sebres Date: Thu, 26 Dec 2024 18:40:43 +0000 Subject: [PATCH] small amend (unsaved change): cover epoch change (recompile in child) for main interp too --- tests/interp.test | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tests/interp.test b/tests/interp.test index d7bc999f055..87e131ec537 100644 --- a/tests/interp.test +++ b/tests/interp.test @@ -2072,11 +2072,12 @@ test interp-25.2 {lambda on different interpreters, bug [67d5f75c36cbada6]} -set # cover also epoch change (command list is replaced): a eval {proc list args {return {NO LIST}}} lappend res [a eval $lambda] + lappend res [eval $lambda] set res } -cleanup { interp delete a unset -nocomplain res lambda -} -result [list {*}[lrepeat 4 {OK from lambda}] {NO LIST}] +} -result [list {*}[lrepeat 4 {OK from lambda}] {NO LIST} {OK from lambda}] # # Interps result transmission