Changeset 2034 for trunk/tester/test.tcl

Timestamp:

Jan 14, 2011 2:34:32 PM (13 years ago)

Author:

braffert

Message:

 

File:

• trunk/tester/test.tcl (modified) (3 diffs)

trunk/tester/test.tcl

@@ -19 +19 @@
 
     constructor {toolxml testxml} { #defined later }
+    destructor { #defined later }
 
     private variable _added ""
@@ -72 +73 @@
 
 # ----------------------------------------------------------------------
+# DESTRUCTOR
+# ----------------------------------------------------------------------
+itcl::body Rappture::Tester::Test::destructor {} {
+    itcl::delete object $_toolobj
+    itcl::delete object $_testobj
+    if {$_ran} {
+        itcl::delete object $_runobj
+    }
+}
+
+# ----------------------------------------------------------------------
 # USAGE: getAdded
 #
@@ -215 +227 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Tester::Test::run {} {
+    # Delete existing library if rerun
+    if {$_ran} {
+        itcl::delete object $_runobj
+    }
     set driver [makeDriver]
     set tool [Rappture::Tool ::#auto $driver [file dirname $_toolxml]]