Tcl Source Code

    if {[preserveCore]} {
	if {[file exists [file join [workingDirectory] core]]} {
	    set coreModTime [file mtime [file join [workingDirectory] core]]
	}
    }

    # First, run the setup script
    set code [catch {
    set code [catch {uplevel 1 $setup} setupMsg]
		uplevel 1 [list [namespace which SetupTest] $setup]
	} setupMsg]
    if {$code == 1} {
	set errorInfo(setup) $::errorInfo
	set errorCodeRes(setup) $::errorCode
    }
    set setupFailure [expr {$code != 0}]

    # Only run the test body if the setup was successful

	    }
	    return 1
	}
    }
    return 0
}



# RunTest --
#
# This is where the body of a test is evaluated.  The combination of
# [RunTest] and [Eval] allows the output and error output of the test
# body to be captured for comparison against the expected values.

proc tcltest::RunTest {name script} {

    }

    set code [catch {uplevel 1 $script} actualAnswer]

    return [list $actualAnswer $code]
}



# SetupTest --
#
# Evaluates the -setup script for a test

proc tcltest::SetupTest setup {
    uplevel 1 $setup
}

#####################################################################

# tcltest::cleanupTestsHook --
#
#	This hook allows a harness that builds upon tcltest to specify
#       additional things that should be done at cleanup.
#