diff options
| author | sbron <sbron@tclcode.com> | 2023-09-04 10:17:41 (GMT) |
|---|---|---|
| committer | sbron <sbron@tclcode.com> | 2023-09-04 10:17:41 (GMT) |
| commit | a9462458f887b52dadf4c5a2506a17cb7cf55036 (patch) | |
| tree | 962d343c30e195c698171e9771385dc3f3a727ea | |
| parent | 669a554ebefcd4492ff8b5e6dcad3d16ee0583ac (diff) | |
| download | tk-a9462458f887b52dadf4c5a2506a17cb7cf55036.zip tk-a9462458f887b52dadf4c5a2506a17cb7cf55036.tar.gz tk-a9462458f887b52dadf4c5a2506a17cb7cf55036.tar.bz2 | |
Add a test that will crash on Tk 8.7, due to bug [14a9b62e1d].
| -rw-r--r-- | tests/menu.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/menu.test b/tests/menu.test index 72ece49..68d432b 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -2229,6 +2229,14 @@ test menu-6.16 {TkDestroyMenu} -setup { .t3 configure -menu .m1 list [destroy .m1] [destroy .t2] [destroy .t3] [. configure -menu ""] } -result {{} {} {} {}} +test menu-6.17 {TkDestroyMenu - bug 14a9b62e1d} -setup { + deleteWindows +} -body { + menu .m1 + .m1 add command -command {destroy .m1} + .m1 invoke end + winfo exists .m1 +} -result {0} test menu-7.1 {UnhookCascadeEntry} -setup { deleteWindows |