Import Tix 8.4.3.5 (as of svn r86089)

tests/cleanup/cleanup.tcl

@@ -0,0 +1,32 @@
+# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
+#
+#	$Id: cleanup.tcl,v 1.2 2002/11/13 21:12:17 idiscovery Exp $
+#
+# 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"
+	    }
+	}
+    }
+}