diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-15 15:07:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-15 15:07:44 (GMT) |
| commit | 5758c119f8180b9f3f902d157e567a1c2a7f85e0 (patch) | |
| tree | 3fb58de64c9cbd8d1b798a9ac37d604dacbde8c3 /tests/lindex.test | |
| parent | 39aec08fb0bcd5aa7d51f44c3b79e21d8de33744 (diff) | |
| parent | 245a63f4919420ca6a36f14ba0866a91b51494b8 (diff) | |
| download | tcl-5758c119f8180b9f3f902d157e567a1c2a7f85e0.zip tcl-5758c119f8180b9f3f902d157e567a1c2a7f85e0.tar.gz tcl-5758c119f8180b9f3f902d157e567a1c2a7f85e0.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/lindex.test')
| -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 339d92c..32a30b2 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 |