diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-07-01 13:46:33 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-07-01 13:46:33 (GMT) |
commit | 40ca1692e88822210bc70f755ddb8fc4b9f00c97 (patch) | |
tree | a3b8be61c053a90b0f36b85b7d9457d2df6bceef /tests | |
parent | dfa208bc23d9dc9cb948fe49d8371411de93a643 (diff) | |
download | tcl-40ca1692e88822210bc70f755ddb8fc4b9f00c97.zip tcl-40ca1692e88822210bc70f755ddb8fc4b9f00c97.tar.gz tcl-40ca1692e88822210bc70f755ddb8fc4b9f00c97.tar.bz2 |
Add test for crash
Diffstat (limited to 'tests')
-rw-r--r-- | tests/info.test | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/info.test b/tests/info.test index 6c49b2d..5df9a90 100644 --- a/tests/info.test +++ b/tests/info.test @@ -2583,6 +2583,15 @@ test info-39.2 {Bug 4b61afd660} -setup { rename probe {} } -result 3 +test info-40.0 {Bug 0de6c1d79c crash} -setup { + interp create child + child hide info +} -cleanup { + interp delete child +} -body { + child invokehidden info frame +} -result 1 + # cleanup catch {namespace delete test_ns_info1 test_ns_info2} ::tcltest::cleanupTests |