diff options
Diffstat (limited to 'tix/tests/cleanup/cleanup.tcl')
-rw-r--r-- | tix/tests/cleanup/cleanup.tcl | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/tix/tests/cleanup/cleanup.tcl b/tix/tests/cleanup/cleanup.tcl new file mode 100644 index 00000000000..b76f44d0289 --- /dev/null +++ b/tix/tests/cleanup/cleanup.tcl @@ -0,0 +1,28 @@ +# cleanup.tcl -- +# +# This program tests whether whether there is any garbage left +# after all the test files are executed. If so, either Tix has +# resource leak or the test suite doesn't clean up properly. +# +# Copyright (c) 1996, Expert Interface Technologies +# +# See the file "license.terms" for information on usage and redistribution +# of this file, and for a DISCLAIMER OF ALL WARRANTIES. +# + +proc About {} { + return "Testing resource leaks" +} + +proc Test {} { + global testConfig + + if {$testConfig(VERBOSE) >= 20} { + foreach image [image names] { + puts "Warning: \[resource leak\] image $image of type [image type $image]" + foreach option [$image configure] { + puts " $option" + } + } + } +} |