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:
@ -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
|
||||
}
|
||||
|
Reference in New Issue
Block a user