diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2019-04-08 13:38:19 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2019-04-08 13:38:19 (GMT) |
| commit | c1de90d70a6cac71dc4200eb9d9fb2b08a8f9b1c (patch) | |
| tree | ec4e009816d9fb00f50e45bfd41fe10eb892458c /tests/cmdMZ.test | |
| parent | f4882bb16f3d05c8b225157bb04d2401224ef23e (diff) | |
| download | tcl-c1de90d70a6cac71dc4200eb9d9fb2b08a8f9b1c.zip tcl-c1de90d70a6cac71dc4200eb9d9fb2b08a8f9b1c.tar.gz tcl-c1de90d70a6cac71dc4200eb9d9fb2b08a8f9b1c.tar.bz2 | |
Improve test for last commit fixing [45b9faf103f2].
Diffstat (limited to 'tests/cmdMZ.test')
| -rw-r--r-- | tests/cmdMZ.test | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/cmdMZ.test b/tests/cmdMZ.test index dd299f1..80258dc 100644 --- a/tests/cmdMZ.test +++ b/tests/cmdMZ.test @@ -417,11 +417,10 @@ test cmdMZ-try-1.0 { } -body { ::apply {{} { - eval { - try { - lindex 5 - } on ok res {} - } + set cmd try + $cmd { + lindex 5 + } on ok res {} set res }} } -result 5 |