diff options
| -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 |