summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-08-01 08:47:37 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-08-01 08:47:37 (GMT)
commit6c208deebcce1a0d90a5721f7a5f96213c26e147 (patch)
tree20bd2e631b2077552b038907affec50e4265eb6b /tests
parent771103dda69711d0ecde7e072cdfdafdecebf5de (diff)
downloadtk-6c208deebcce1a0d90a5721f7a5f96213c26e147.zip
tk-6c208deebcce1a0d90a5721f7a5f96213c26e147.tar.gz
tk-6c208deebcce1a0d90a5721f7a5f96213c26e147.tar.bz2
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.
Diffstat (limited to 'tests')
-rw-r--r--tests/config.test8
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]