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

Add the "warning" command to the TCL test infrastructure. Fix problems

Browse Source 
with the loadext.test module.

FossilOrigin-Name: 514adbbd8cf3e296f55e8f803bddaac8ad8b2c96
This commit is contained in:
drh
2013-04-19 12:32:52 +00:00
parent f8b1c69e93
commit cca17c303b
4 changed files with 33 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
test/tester.tcl
View File

@ -462,6 +462,7 @@ if {0==[info exists ::SLAVE]} {
set TC(count) 0
set TC(fail_list) [list]
set TC(omit_list) [list]
set TC(warn_list) [list]
proc set_test_counter {counter args} {
if {[llength $args]} {
@ -496,6 +497,18 @@ proc fail_test {name} {
}
}
# Remember a warning message to be displayed at the conclusion of all testing
#
proc warning {msg {append 1}} {
puts "Warning: $msg"
set warnList [set_test_counter warn_list]
if {$append} {
lappend warnList $msg
}
set_test_counter warn_list $warnList
}
# Increment the number of tests run
#
proc incr_ntest {} {
@ -784,6 +797,9 @@ proc finalize_testing {} {
if {$nErr>0} {
puts "Failures on these tests: [set_test_counter fail_list]"
}
foreach warning [set_test_counter warn_list] {
puts "Warning: $warning"
}
run_thread_tests 1
if {[llength $omitList]>0} {
puts "Omitted test cases:"