Add tests for the 'propagate off' case of pack and grid

1 files changed, 15 insertions, 0 deletions

diff --git a/tests/grid.test b/tests/grid.test
index 5f2a4f8..444f60f 100644
--- a/tests/grid.test
+++ b/tests/grid.test
@@ -2100,6 +2100,7 @@ test grid-24.6 {<<NoManagedChild>> does not fire on forelast grid forget} -body
 } -result {0}
 test grid-24.7 {<<NoManagedChild>> does not fire on grid anchor} -body {
     global A
+    catch {unset A}
     bind . <<NoManagedChild>> {set A 1}
     grid anchor . w
     update
@@ -2109,6 +2110,20 @@ test grid-24.7 {<<NoManagedChild>> does not fire on grid anchor} -body {
     bind . <<NoManagedChild>> {}
     grid_reset 24.7
 } -result {0}
+test grid-24.8 {<<NoManagedChild>> does not fire on last grid forget if propagation is off} -body {
+    global A
+    catch {unset A}
+    grid [frame .1]
+    grid propagate . 0
+    update
+    bind . <<NoManagedChild>> {set A 1}
+    grid forget .1
+    update
+    info exists A
+} -cleanup {
+    bind . <<NoManagedChild>> {}
+    grid_reset 24.8
+} -result {0}
 
 
 # cleanup