1
0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00

Fix minor problems in testrunner.tcl that pop up when the command-line arguments

are such that no tests are run.

FossilOrigin-Name: 321ded32f67550e964cd64d61aa0cbc0029ce2fdee4588a46b01dbb5aa87150b
This commit is contained in:
drh
2024-11-18 13:29:16 +00:00
parent bbc6e5c9b7
commit 9c8235b1bd
3 changed files with 10 additions and 7 deletions

View File

@ -465,6 +465,7 @@ if {[string compare -nocase script [lindex $argv 0]]==0} {
# number of milliseconds in the argument.
#
proc elapsetime {ms} {
if {$ms==""} {set ms 0}
set s [expr {int(($ms+500.0)*0.001)}]
set hr [expr {$s/3600}]
set mn [expr {($s/60)%60}]
@ -1603,6 +1604,8 @@ proc run_testset {} {
SELECT pltfm, count(*) FROM jobs WHERE pltfm IS NOT NULL
ORDER BY 2 DESC LIMIT 1
} break
if {$totalerr==""} {set totalerr 0}
if {$totaltest==""} {set totaltest 0}
puts "$totalerr errors out of $totaltest tests in $et $pltfm"
trdb eval {
SELECT DISTINCT substr(svers,1,79) as v1 FROM jobs WHERE svers IS NOT NULL