diff options
author | sebres <sebres@users.sourceforge.net> | 2022-07-22 19:19:26 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2022-07-22 19:19:26 (GMT) |
commit | 49867f2fd30037c8b87e75e9bef5c7424edfe15f (patch) | |
tree | a4ad296a3df51a6b1dca7f9d7357002eb0c08fa7 /library/tcltest | |
parent | b69f262ad8aca1cb0d2e9d3a3c906b0eea06bb6c (diff) | |
download | tcl-49867f2fd30037c8b87e75e9bef5c7424edfe15f.zip tcl-49867f2fd30037c8b87e75e9bef5c7424edfe15f.tar.gz tcl-49867f2fd30037c8b87e75e9bef5c7424edfe15f.tar.bz2 |
correctly show the execution time unit by usec (µs) if testing on systems with not utf-8 default system encoding (e. g. windows)
Diffstat (limited to 'library/tcltest')
-rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 72c7b94..9124699 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -2141,7 +2141,7 @@ proc tcltest::test {name description args} { if {[IsVerbose msec] || [IsVerbose usec]} { set t [expr {[clock microseconds] - $timeStart}] if {[IsVerbose usec]} { - puts [outputChannel] "++++ $name took $t μs" + puts [outputChannel] "++++ $name took $t \xB5s" } if {[IsVerbose msec]} { puts [outputChannel] "++++ $name took [expr {round($t/1000.)}] ms" |