Make sure that in test-cases, Tk_DeleteOptionTable() is never called more times than the corresponding Tk_CreateOptionTable(). Although it doesn't crash now, this behavior cannot be depended on.

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/config.test b/tests/config.test
index 8f7aa9f..4430000 100644
--- a/tests/config.test
+++ b/tests/config.test
@@ -16,8 +16,8 @@ proc killTables {} {
     # chain2 depends on chain1.  If chain1 is deleted first, the
     # delete of chain2 will crash.
     deleteWindows
-    foreach t {alltypes chain2 chain1 configerror internal new notenoughparams
-	    twowindows} {
+    foreach t {alltypes chain3 chain2 chain1 configerror internal
+	    new notenoughparams twowindows} {
 	    while {[testobjconfig info $t] != ""} {
 	        testobjconfig delete $t
 	    }
@@ -126,9 +126,9 @@ test config-2.1 {Tk_DeleteOptionTable - reference counts} -constraints {
     set x {}
     testobjconfig chain1 .a
     testobjconfig chain2 .b
-    testobjconfig chain2 .c
+    testobjconfig chain3 .c
     deleteWindows
-    testobjconfig delete chain2
+    testobjconfig delete chain3
     lappend x [testobjconfig info chain2] [testobjconfig info chain1]
     testobjconfig delete chain2
     lappend x [testobjconfig info chain2] [testobjconfig info chain1]