diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-09-02 19:50:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-09-02 19:50:32 (GMT) |
| commit | ee7073e46860e7e4746d0f8d68a8b66e708eb763 (patch) | |
| tree | f0ab2608fd0c2d8078d8ebdbfc98054537a48489 | |
| parent | de2793025fcbb875f0ac1e7efed956bbfedca273 (diff) | |
| download | tcl-ee7073e46860e7e4746d0f8d68a8b66e708eb763.zip tcl-ee7073e46860e7e4746d0f8d68a8b66e708eb763.tar.gz tcl-ee7073e46860e7e4746d0f8d68a8b66e708eb763.tar.bz2 | |
Test lindex-18.0 demonstrates same issue with INST_LIST_INDEX
| -rw-r--r-- | tests/lindex.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/lindex.test b/tests/lindex.test index 41c803b..fa5c996 100644 --- a/tests/lindex.test +++ b/tests/lindex.test @@ -449,6 +449,14 @@ test lindex-17.1 {Bug 1718580} -body { lindex a end foo } -match glob -result {bad index "foo"*} -returnCodes 1 +test lindex-18.0 {nested bytecode execution} -setup { + proc demo {i} {lindex {a b c} $i} +} -body { + demo 0+0x10000000000000000 +} -cleanup { + rename demo {} +} + catch { unset minus } # cleanup |