summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-29 17:20:29 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-29 17:20:29 (GMT)
commit4489ec6866f73246dd1654e0e98fc5fb431a170d (patch)
treeb9cef2c0bd1c8227af75edbd58ce327f0edd853b /tests
parent38ae5eca7ffd791e3b3b092969700ef6ee56ba19 (diff)
downloadtcl-4489ec6866f73246dd1654e0e98fc5fb431a170d.zip
tcl-4489ec6866f73246dd1654e0e98fc5fb431a170d.tar.gz
tcl-4489ec6866f73246dd1654e0e98fc5fb431a170d.tar.bz2
3614102 - Reset stack housekeeping when compileProc fails.
Diffstat (limited to 'tests')
-rw-r--r--tests/compile.test6
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