diff options
author | Jason Molenda <jmolenda@apple.com> | 2000-02-07 00:19:28 +0000 |
---|---|---|
committer | Jason Molenda <jmolenda@apple.com> | 2000-02-07 00:19:28 +0000 |
commit | b111a96ea19bde1004ecea63c7827a1d4b0b73ef (patch) | |
tree | 2b8155215201f5224d8f68ec53f9720a89dfbdd9 /tix/tests/cleanup/cleanup.tcl | |
parent | b73e43e34794f4903b0bf2e0fc1298547ef01faf (diff) | |
download | gdb-b111a96ea19bde1004ecea63c7827a1d4b0b73ef.tar.gz |
import insight-2000-02-04 snapshot (2nd try)
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" + } + } + } +} |