aboutsummaryrefslogtreecommitdiff
path: root/test.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'test.tcl')
-rw-r--r--test.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/test.tcl b/test.tcl
index c4d287f..b869f47 100644
--- a/test.tcl
+++ b/test.tcl
@@ -1180,7 +1180,7 @@ test incr-1.13 {TclCompileIncrCmd: simple but new (unknown) local name} {
}
catch {p} msg
set msg
-} {can't read "bar": no such variable}
+} {1}
test incr-1.14 {TclCompileIncrCmd: simple local name, >255 locals} {
proc 260locals {} {
# create 260 locals
@@ -1399,7 +1399,7 @@ test incr-2.13 {incr command (not compiled): simple but new (unknown) local name
}
catch {p} msg
set msg
-} {can't read "bar": no such variable}
+} {1}
test incr-2.14 {incr command (not compiled): simple local name, >255 locals} {
proc 260locals {} {
set z incr