library/tcltest/tcltest.tcl

4 #       defines the tcltest namespace and finds and defines the output
5 #       directory, constraints available, output and error channels,
119     # Verification command that accepts boolean values
120     proc AcceptBoolean { boolean } {
121 	return [expr {$boolean && $boolean}]
220     # The currentFailure var stores the boolean value of whether the
264     # Set workingDirectory to [pwd]. The default output directory for
343     # output goes to stdout by default
679     # debug output doesn't get printed by default; debug level 1 spits
683     # some additional output regarding operations of the test harness.
785     # output goes to stdout by default
787 	Send output from test runs to the specified file.
807 #     them, f.e. to redirect the output into a different
816 #     level   The lowest debug level triggering the output
840 #     level           The lowest debug level triggering the output
918 #       value - new value for constraint (should be boolean) - if not
934     # Check for boolean values
1096 #	will return a boolean value with which to initialize the
1104 #	boolean value of the constraint - enabled or disabled
1114     # Check for boolean values
1287 	        [llength [auto_execok ps]] == 0
1594 #       errData.  Otherwise, ignore this output altogether.
1598 #       ?ignoreOutput?     Indicates whether or not to ignore output
1809 #   output -            Expected output sent to stdout.  This attribute
1811 #   errorOutput -       Expected output sent to stderr.  This attribute
1820 #                       output, errorOutput; this must be a string
1853     # Pre-define everything to null except output and errorOutput.  We
1854     # determine whether or not to trap output based on whether or not
1855     # these variables (output & errorOutput) are defined.
1879 		    result returnCodes output errorOutput} {
1890 		-match -output -errorOutput -constraints}
1968 	if {[info exists output] || [info exists errorOutput]} {
2027     # If expected output/error strings exist, we have to compare
2031     if {[info exists output] && !$codeFailure} {
2033 	    CompareStrings $outData $output $match
2134 	    puts [outputChannel] "---- Error testing output: $outputMatch"
2138 		    ($match matching):\n$output"
2145 	    puts [outputChannel] "---- Error output was:\n$errData"
2146 	    puts [outputChannel] "---- Error output should have\
2169 # Given a test name and it constraints, returns a boolean indicating
2264 # [RunTest] and [Eval] allows the output and error output of the test
2651 #	prints output and sources test files according to the match and
2729 	    # needs to read and process output of children.