diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-03 12:15:11 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-03 12:15:11 (GMT) |
| commit | d3aa6839f45e33d533ae9525378612cb04ab0dd1 (patch) | |
| tree | c559ab87f027d879c591ec84470bcf46a1a88cb0 /tests/cmdInfo.test | |
| parent | 4d674569535d565275d4a4d4a16a8c63ed7c41f9 (diff) | |
| download | tcl-d3aa6839f45e33d533ae9525378612cb04ab0dd1.zip tcl-d3aa6839f45e33d533ae9525378612cb04ab0dd1.tar.gz tcl-d3aa6839f45e33d533ae9525378612cb04ab0dd1.tar.bz2 | |
Fix Valgrind "still reachable" report in TestcmdtokenCmd().
Diffstat (limited to 'tests/cmdInfo.test')
| -rw-r--r-- | tests/cmdInfo.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/cmdInfo.test b/tests/cmdInfo.test index 37b8a0b..ad564d7 100644 --- a/tests/cmdInfo.test +++ b/tests/cmdInfo.test @@ -70,7 +70,7 @@ test cmdinfo-4.1 {Tcl_GetCommandName/Tcl_GetCommandFullName procedures} \ rename x1 newName set y [testcmdtoken name $x] rename newName x1 - lappend y {*}[testcmdtoken name $x] + lappend y {*}[testcmdtoken name $x][testcmdtoken free $x] } {newName ::newName x1 ::x1} catch {rename newTestCmd {}} @@ -87,7 +87,7 @@ test cmdinfo-5.1 {Names for commands created when inside namespaces} \ }] set y [testcmdtoken name $x] rename ::testCmd newTestCmd - lappend y {*}[testcmdtoken name $x] + lappend y {*}[testcmdtoken name $x][testcmdtoken free $x] } {testCmd ::testCmd newTestCmd ::newTestCmd} test cmdinfo-6.1 {Names for commands created when outside namespaces} \ @@ -95,7 +95,7 @@ test cmdinfo-6.1 {Names for commands created when outside namespaces} \ set x [testcmdtoken create cmdInfoNs1::cmdInfoNs2::testCmd] set y [testcmdtoken name $x] rename cmdInfoNs1::cmdInfoNs2::testCmd newTestCmd2 - lappend y {*}[testcmdtoken name $x] + lappend y {*}[testcmdtoken name $x][testcmdtoken free $x] } {testCmd ::cmdInfoNs1::cmdInfoNs2::testCmd newTestCmd2 ::newTestCmd2} # cleanup |