blob: b76f44d0289e389eb008bce67563c79e7a35e220 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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"
}
}
}
}
|