From 9cb6db3c5911d701d13fbe2bed6f21d7cabae4b0 Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Mon, 1 Jun 2015 19:10:13 +0000
Subject: Test panedwindow-25.2 uses tcltest 2 format

---
 tests/panedwindow.test | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tests/panedwindow.test b/tests/panedwindow.test
index 7c7e138..4bc59a8 100644
--- a/tests/panedwindow.test
+++ b/tests/panedwindow.test
@@ -5087,7 +5087,9 @@ test panedwindow-25.1 {DestroyPanedWindow} -setup {
     }
     set result {}
 } -result {}
-test panedwindow-26.2 {UnmapNotify and MapNotify events are propagated to slaves} {
+test panedwindow-25.2 {UnmapNotify and MapNotify events are propagated to slaves} -setup {
+    deleteWindows
+} -body {
     panedwindow .pw
     .pw add [button .pw.b]
     pack .pw
@@ -5103,7 +5105,9 @@ test panedwindow-26.2 {UnmapNotify and MapNotify events are propagated to slaves
     lappend result [winfo ismapped .pw.b]
     destroy .pw .pw.b
     set result
-} {1 0 0 1 1}
+} -cleanup {
+	deleteWindows
+} -result {1 0 0 1 1}
 
 
 test panedwindow-26.1 {PanedWindowIdentifyCoords} -setup {
-- 
cgit v0.12