database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-27 20:41:58 +03:00
Code Activity

Merge the latest enhancements from trunk.

Browse Source 
FossilOrigin-Name: 7d6cfc79e7e5534ebacd980479917bc528a638f7
This commit is contained in:
drh
2015-11-19 19:40:40 +00:00
parent 98a0e0083f 18f8e73453
commit 769dc6e2a2
53 changed files with 1558 additions and 1461 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
test/tester.tcl
View File

@ -746,8 +746,8 @@ proc do_test {name cmd expected} {
# if {![info exists ::testprefix] || $::testprefix eq ""} {
# error "no test prefix"
# }
output2_if_no_verbose -nonewline $name...
output2 "\nExpected: \[$expected\]\n Got: \[$result\]"
output1 ""
output2 "! $name expected: \[$expected\]\n! $name got: \[$result\]"
fail_test $name
} else {
output1 " Ok"
@ -1037,7 +1037,7 @@ proc finalize_testing {} {
output2 "$nErr errors out of $nTest tests"
}
if {$nErr>$nKnown} {
output2 -nonewline "Failures on these tests:"
output2 -nonewline "!Failures on these tests:"
foreach x [set_test_counter fail_list] {
if {![info exists known_error($x)]} {output2 -nonewline " $x"}
}
@ -1053,7 +1053,7 @@ proc finalize_testing {} {
foreach {rec} [lsort $omitList] {
if {$rec==$prec} continue
set prec $rec
output2 [format { %-12s %s} [lindex $rec 0] [lindex $rec 1]]
output2 [format {. %-12s %s} [lindex $rec 0] [lindex $rec 1]]
}
}
if {$nErr>0 && ![working_64bit_int]} {