diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-29 17:20:29 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-29 17:20:29 (GMT) |
| commit | e7da373e0c6ede5c428aba9f55cd0ecc9317f5ec (patch) | |
| tree | b9cef2c0bd1c8227af75edbd58ce327f0edd853b /tests/compile.test | |
| parent | c929650e2f079e196a96f2984cd24820bcc56d3e (diff) | |
| download | tcl-e7da373e0c6ede5c428aba9f55cd0ecc9317f5ec.zip tcl-e7da373e0c6ede5c428aba9f55cd0ecc9317f5ec.tar.gz tcl-e7da373e0c6ede5c428aba9f55cd0ecc9317f5ec.tar.bz2 | |
3614102 - Reset stack housekeeping when compileProc fails.
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/compile.test b/tests/compile.test index 4d91940..51db0a2 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -707,6 +707,12 @@ test compile-18.19 {disassembler - basics} -setup { } -cleanup { foo destroy } -match glob -result * + +test compile-19.0 {Bug 3614102: reset stack housekeeping} -body { + # This will panic in a --enable-symbols=compile build, unless bug is fixed. + apply {{} {list [if 1]}} +} -returnCodes error -match glob -result * + # TODO sometime - check that bytecode from tbcload is *not* disassembled. # cleanup |