Changeset 2068 for trunk/tester/test.tcl

Timestamp:

Jan 26, 2011, 5:58:26 PM (14 years ago)

Author:

braffert

Message:

Small fixes for regression tester

File:

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

trunk/tester/test.tcl

@@ -80 +80 @@
     itcl::delete object $_toolobj
     itcl::delete object $_testobj
-    if {$_ran} {
+    if {$_ran && $_testobj != $_runobj} {
         itcl::delete object $_runobj
     }
@@ -193 +193 @@
 # USAGE: getResult
 #
-# Returns the result of the test - either Pass, Fail, or Error.  Throws
-# an error if the test has not been ran.
+# Returns the result of the test - either Pass, Fail, or Error.  Returns
+# an empty string if the test has not been ran.
 # ----------------------------------------------------------------------
 itcl::body Rappture::Tester::Test::getResult {} {
-    if {!$_ran} {
-        error "Test has not yet been ran."
-    }
     return $_result
 }
@@ -294 +291 @@
 itcl::body Rappture::Tester::Test::run {} {
     # Delete existing library if rerun
-    if {$_ran} {
+    if {$_ran && $_result != "Error"} {
         itcl::delete object $_runobj
     }