Change menu test number: menu-41.1 --> menu-39.2

1 files changed, 18 insertions, 17 deletions

diff --git a/tests/menu.test b/tests/menu.test
index 7c816ce..1c45e11 100644
--- a/tests/menu.test
+++ b/tests/menu.test
@@ -4100,6 +4100,24 @@ test menu-39.1 {empty -type - bug be8f5b9fc2} -setup {
     destroy .m
 } -returnCodes error -result {ambiguous type "": must be menubar, normal, or tearoff}
 
+test menu-39.2 {use-after-free fix - bug 1797555fff} -setup {
+    toplevel .t
+    menu .t.menubar -type menubar
+    menu .t.menubar.select -title Select
+    menu .t.menubar.select.chain -title Chain
+    .t.menubar.select insert 1 cascade -menu .t.menubar.select.chain -label Chain
+    .t.menubar add cascade -menu .t.menubar.select -label Select
+    .t configure -menu .t.menubar
+    .t.menubar.select.chain insert 1 command
+    update idletasks
+} -body {
+    # The following two lines caused Tk to read from and write to freed memory
+    destroy .t.menubar.select.chain
+    .t.menubar.select delete 1
+} -cleanup {
+    destroy .t
+} -result {}
+
 test menu-40.1 {identifiers - auto generated} -setup {
     destroy .m
 } -body {
@@ -4252,23 +4270,6 @@ test menu-40.14 {identifiers - reserved word} -setup {
     destroy .m
 } -result {2}
 
-test menu-41.1 {use-after-free fix - bug 1797555fff} -setup {
-    toplevel .t
-    menu .t.menubar -type menubar
-    menu .t.menubar.select -title Select
-    menu .t.menubar.select.chain -title Chain
-    .t.menubar.select insert 1 cascade -menu .t.menubar.select.chain -label Chain
-    .t.menubar add cascade -menu .t.menubar.select -label Select
-    .t configure -menu .t.menubar
-    .t.menubar.select.chain insert 1 command
-    update idletasks
-} -body {
-    # The following two lines caused Tk to read from and write to freed memory
-    destroy .t.menubar.select.chain
-    .t.menubar.select delete 1
-} -cleanup {
-    destroy .t
-} -result {}
 
 # cleanup
 imageFinish