Changeset 2055 for trunk/tester/testtree.tcl

Timestamp:

Jan 19, 2011, 7:49:28 PM (14 years ago)

Author:

braffert

Message:

Regression tester: cleaning up and adding comments

File:

• trunk/tester/testtree.tcl (modified) (5 diffs)

trunk/tester/testtree.tcl

@@ -38 +38 @@
 
     constructor {args} { #defined later }
+    destructor { #defined later }
 
     public method getTest {args}
@@ -117 +118 @@
 }
 
-# TODO: destructor
-
-# ----------------------------------------------------------------------
-# Repopulate tree if test directory or toolxml have been changed.
+# ----------------------------------------------------------------------
+# DESTRUCTOR
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tester::TestTree::destructor {} {
+    foreach id [getLeaves] {
+        itcl::delete object [getTest $id]
+    }
+}
+
+# ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -testdir
+#
+# Location of the directory containing a set of test xml files.
+# Repopulate the tree if -testdir option is changed, but only if
+# -toolxml has already been defined.
 # ----------------------------------------------------------------------
 itcl::configbody Rappture::Tester::TestTree::testdir {
@@ -128 +140 @@
 }
 
+# ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -toolxml
+#
+# Location of the tool.xml for the tool being tested.  Repopulate the
+# tree if -toolxml is changed, but only if -testdir has already been
+# defined.
 itcl::configbody Rappture::Tester::TestTree::toolxml {
     if {$itk_option(-testdir) != ""} {
@@ -135 +153 @@
 
 # ----------------------------------------------------------------------
+# CONFIGURATION OPTION: -selectcommand
+#
 # Forward the TestTree's selectcommand to the treeview, but tack on the
 # updateLabel method to keep the label refreshed when selection is
@@ -256 +276 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Tester::TestTree::populate {} {
-    # TODO: Delete existing test objects
+    foreach id [getLeaves] {
+        itcl::delete object [getTest $id]
+    }
     $itk_component(treeview) delete 0
     # TODO: add an appropriate icon