Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Approximate ms by μs/1000 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | gahr-tip-447 |
| Files: | files | file ages | folders |
| SHA1: |
c7aa0a34d240ead0ff03baebf06343d9 |
| User & Date: | gahr 2016-05-03 19:50:15.748 |
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
Changes to library/tcltest/tcltest.tcl.
| ︙ | ︙ | |||
1980 1981 1982 1983 1984 1985 1986 |
}
set setupFailure [expr {$code != 0}]
# Only run the test body if the setup was successful
if {!$setupFailure} {
# Register startup time
| | < < < | | 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 |
}
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]
}
|
| ︙ | ︙ | |||
2091 2092 2093 2094 2095 2096 2097 |
append coreMsg "\nError:\
Problem renaming core file: $msg"
}
}
}
}
| | | > | | | < | > | 2088 2089 2090 2091 2092 2093 2094 2095 2096 2097 2098 2099 2100 2101 2102 2103 2104 2105 2106 2107 2108 2109 |
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)} {
|
| ︙ | ︙ |