1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00

Shorten the status line for testrunner.tcl so that it fits on an 80-character

terminal.

FossilOrigin-Name: b760a7307c453d95cf3b302c9867c84a9c899956c16c2ce1ea6cce8f025db425
This commit is contained in:
drh
2023-02-06 14:48:02 +00:00
parent adc21bd434
commit 634ed64312
3 changed files with 16 additions and 12 deletions

View File

@ -766,7 +766,7 @@ proc one_line_report {} {
global TRG
set tm [expr [clock_milliseconds] - $TRG(starttime)]
set tm [format "%.2f" [expr $tm/1000.0]]
set tm [format "%d" [expr int($tm/1000.0 + 0.5)]]
foreach s {ready running done failed} {
set v($s,build) 0
@ -792,16 +792,20 @@ proc one_line_report {} {
set text ""
foreach j [array names t] {
set fin [expr $v(done,$j) + $v(failed,$j)]
lappend text "$j: ($fin/$t($j)) f=$v(failed,$j) r=$v(running,$j)"
lappend text "$j ($fin/$t($j)) f=$v(failed,$j) r=$v(running,$j)"
}
if {[info exists TRG(reportlength)]} {
puts -nonewline "[string repeat " " $TRG(reportlength)]\r"
}
set report "${tm}s: [join $text { || }]"
set report "${tm}s: [join $text { }]"
set TRG(reportlength) [string length $report]
puts -nonewline "$report\r"
flush stdout
if {[string length $report]<80} {
puts -nonewline "$report\r"
flush stdout
} else {
puts $report
}
after $TRG(reporttime) one_line_report
}