diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-05 07:11:15 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2023-03-05 07:11:15 (GMT) |
| commit | 76edd58c3e121255d2dae1c5bc1b2fc86d1ab3fc (patch) | |
| tree | 8d659f7516558b92675047bcfae6db36e4b379a0 /tests/cmdInfo.test | |
| parent | d3aa6839f45e33d533ae9525378612cb04ab0dd1 (diff) | |
| download | tcl-76edd58c3e121255d2dae1c5bc1b2fc86d1ab3fc.zip tcl-76edd58c3e121255d2dae1c5bc1b2fc86d1ab3fc.tar.gz tcl-76edd58c3e121255d2dae1c5bc1b2fc86d1ab3fc.tar.bz2 | |
A better fix for 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 ad564d7..37b8a0b 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][testcmdtoken free $x] + lappend y {*}[testcmdtoken name $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][testcmdtoken free $x] + lappend y {*}[testcmdtoken name $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][testcmdtoken free $x] + lappend y {*}[testcmdtoken name $x] } {testCmd ::cmdInfoNs1::cmdInfoNs2::testCmd newTestCmd2 ::newTestCmd2} # cleanup |