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

Include a test case summary in the output of "errors" in testrunner.tcl.

Browse Source 
FossilOrigin-Name: 173df1478e89996126e172656e35da8026d4ef145b2341ef56213f00ade14f48
This commit is contained in:
drh
2024-08-01 14:43:27 +00:00
parent 5cc7f4b580
commit a51de65758
3 changed files with 35 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
test/testrunner.tcl
View File

@ -473,6 +473,32 @@ if {[llength $argv]==1
exit
}
# Scan the output of all jobs looking for the summary lines that
# report the number of test cases and the number of errors.
# Aggregate these numbers and return them.
#
proc aggregate_test_counts {db} {
set ncase 0
set nerr 0
$db eval {SELECT output FROM jobs WHERE displaytype IN ('tcl','fuzz')} {
set n 0
set m 0
if {[regexp {(\d+) errors out of (\d+) tests} $output all n m]
&& [string is integer -strict $n]
&& [string is integer -strict $m]} {
incr ncase $m
incr nerr $n
} elseif {[regexp {sessionfuzz.*: *(\d+) cases, (\d+) crash} $output \
all m n]
&& [string is integer -strict $m]
&& [string is integer -strict $n]} {
incr ncase $m
incr nerr $n
}
}
return [list $nerr $ncase]
}
#--------------------------------------------------------------------------
# Check if this is the "errors" command:
#
@ -507,10 +533,9 @@ if {[llength $argv]>=1 && [llength $argv]<=2
}
incr cnt
}
set summary [aggregate_test_counts mydb]
mydb close
if {$cnt==0} {
puts "No errors"
}
puts "Total [lindex $summary 0] errors out of [lindex $summary 1] tests"
exit
}