aboutsummaryrefslogtreecommitdiff
path: root/tests/loop.test
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2025-07-07 22:56:36 +1000
committerSteve Bennett <steveb@workware.net.au>2025-07-07 23:03:06 +1000
commit5b72bde554529818ca288d54deac63dd2e428483 (patch)
tree7af7ff60cf3a3f1ba2b23f8adf5a1e9a72afcbc5 /tests/loop.test
parent6c1d558d1df64683184c305250917490940a0062 (diff)
downloadjimtcl-master-next.zip
jimtcl-master-next.tar.gz
jimtcl-master-next.tar.bz2
core: Jim_SetVariable() now frees value on errormaster-next
If the value has a zero reference count, free it in the error path. Otherwise callers can't do: Jim_SetVariable(..., Jim_New...()) in case the object is leaked in the error path. Fix various callers that were previously freeing the object in the error path, and add a test to loop.test to show that this was not. Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/loop.test')
-rw-r--r--tests/loop.test9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/loop.test b/tests/loop.test
index c6144e0..43fe562 100644
--- a/tests/loop.test
+++ b/tests/loop.test
@@ -152,6 +152,15 @@ test loop-2.8 {modify loop var} {
set a
} {1 2 3 4 5}
+# Previously this would leak memory (configure --maintainer)
+test loop-2.9 {fail to set loop var} -body {
+ set i 1
+ loop i(x) 1 6 {
+ incr y
+ }
+ set y
+} -returnCodes error -result {can't set "i(x)": variable isn't array}
+
testreport
break