URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
Compare Revisions
- This comparison shows the changes necessary to convert path
/or1k/tags/start/insight/tix/tests/cleanup
- from Rev 579 to Rev 1765
- ↔ Reverse comparison
Rev 579 → Rev 1765
/files
0,0 → 1,?rev2len?
cleanup.tcl |
files
Property changes :
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property
Index: cleanup.tcl
===================================================================
--- cleanup.tcl (nonexistent)
+++ cleanup.tcl (revision 1765)
@@ -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"
+ }
+ }
+ }
+}
cleanup.tcl
Property changes :
Added: svn:executable
## -0,0 +1 ##
+*
\ No newline at end of property