diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-24 15:42:32 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-24 15:42:32 (GMT) |
commit | 464baec255066b1650cad5f08aa1dc5102c6d96e (patch) | |
tree | 5678df84eb2f8492803f69291a3139c7c986376c /tests/result.test | |
parent | 82fd8023baa8d8db4077f24275ac90cc22042b71 (diff) | |
download | tcl-464baec255066b1650cad5f08aa1dc5102c6d96e.zip tcl-464baec255066b1650cad5f08aa1dc5102c6d96e.tar.gz tcl-464baec255066b1650cad5f08aa1dc5102c6d96e.tar.bz2 |
Put back counter in test-case, so we can see if TestsaveresultFree() was actually called or not.
Diffstat (limited to 'tests/result.test')
-rw-r--r-- | tests/result.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/result.test b/tests/result.test index 9e8a66b..1eff46e 100644 --- a/tests/result.test +++ b/tests/result.test @@ -31,7 +31,7 @@ test result-1.2 {Tcl_SaveInterpResult} {testsaveresult} { } {append result} test result-1.3 {Tcl_SaveInterpResult} {testsaveresult} { testsaveresult dynamic {set x 42} 0 -} {dynamic result notCalled present} +} {dynamic result freed} test result-1.4 {Tcl_SaveInterpResult} {testsaveresult} { testsaveresult object {set x 42} 0 } {object result same} @@ -43,7 +43,7 @@ test result-1.6 {Tcl_SaveInterpResult} {testsaveresult} { } {42} test result-1.7 {Tcl_SaveInterpResult} {testsaveresult} { testsaveresult dynamic {set x 42} 1 -} {42 called missing} +} {42 freed} test result-1.8 {Tcl_SaveInterpResult} {testsaveresult} { testsaveresult object {set x 42} 1 } {42 different} |