Tcl Source Code

Check-in [c7aa0a34d2]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Approximate ms by μs/1000
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | gahr-tip-447
Files: files | file ages | folders
SHA1: c7aa0a34d240ead0ff03baebf06343d9703b311b
User & Date: gahr 2016-05-03 19:50:15
Context
2016-05-04
12:23
Add a note in tcltest manual page to betray false expectations on msec and usec. check-in: 2b96efaf27 user: gahr tags: gahr-tip-447
2016-05-03
19:50
Approximate ms by μs/1000 check-in: c7aa0a34d2 user: gahr tags: gahr-tip-447
19:40
Merge trunk check-in: 04abbf3ecb user: gahr tags: gahr-tip-447
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/tcltest/tcltest.tcl.

1980
1981
1982
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
....
2091
2092
2093
2094
2095
2096
2097
2098
2099

2100
2101
2102
2103
2104

2105
2106
2107
2108
2109
2110
2111
    }
    set setupFailure [expr {$code != 0}]

    # Only run the test body if the setup was successful
    if {!$setupFailure} {

	# Register startup time
	if {[IsVerbose msec]} {
	    set msStart [clock milliseconds]
	}
	if {[IsVerbose usec]} {
	    set usStart [clock microseconds]
	}

	# Verbose notification of $body start
	if {[IsVerbose start]} {
	    puts [outputChannel] "---- $name start"
	    flush [outputChannel]
	}
................................................................................
		    append coreMsg "\nError:\
			Problem renaming core file: $msg"
		}
	    }
	}
    }

    if {[IsVerbose msec]} {
	set elapsed [expr {[clock milliseconds] - $msStart}]

	puts [outputChannel] "++++ $name took $elapsed ms"
    }
    if {[IsVerbose usec]} {
	set elapsed [expr {[clock microseconds] - $usStart}]
	puts [outputChannel] "++++ $name took $elapsed μs"

    }

    # if we didn't experience any failures, then we passed
    variable numTests
    if {!($setupFailure || $cleanupFailure || $coreFailure
	    || $outputFailure || $errorFailure || $codeFailure
	    || $scriptFailure)} {






|
<
<
<
|







 







|
|
>
|
|
|
<
|
>







1980
1981
1982
1983
1984
1985
1986
1987



1988
1989
1990
1991
1992
1993
1994
1995
....
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100

2101
2102
2103
2104
2105
2106
2107
2108
2109
    }
    set setupFailure [expr {$code != 0}]

    # Only run the test body if the setup was successful
    if {!$setupFailure} {

	# Register startup time
	if {[IsVerbose msec] || [IsVerbose usec]} {



	    set timeStart [clock microseconds]
	}

	# Verbose notification of $body start
	if {[IsVerbose start]} {
	    puts [outputChannel] "---- $name start"
	    flush [outputChannel]
	}
................................................................................
		    append coreMsg "\nError:\
			Problem renaming core file: $msg"
		}
	    }
	}
    }

    if {[IsVerbose msec] || [IsVerbose usec]} {
	set t [expr {[clock microseconds] - $timeStart}]
	if {[IsVerbose usec]} {
	    puts [outputChannel] "++++ $name took $t μs"
	}
	if {[IsVerbose msec]} {

	    puts [outputChannel] "++++ $name took [expr {round($t/1000.)}] ms"
	}
    }

    # if we didn't experience any failures, then we passed
    variable numTests
    if {!($setupFailure || $cleanupFailure || $coreFailure
	    || $outputFailure || $errorFailure || $codeFailure
	    || $scriptFailure)} {