caleb-brown/redict
1
0
Fork 0
mirror of https://codeberg.org/redict/redict.git synced 2025-01-22 16:18:28 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

better recap of failed tests.

Browse Source
This commit is contained in:
antirez 2011-07-11 12:56:00 +02:00
parent 04e2410d2d
commit 121ffc85f4
3 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/support/test.tcl
View File

@ -98,9 +98,7 @@ proc test {name code {okpattern undefined}} {
incr ::num_tests
set details {}
lappend details $::curfile
lappend details $::tags
lappend details $name
lappend details "$name in $::curfile"
send_data_packet $::test_server_fd testing $name
@ -111,7 +109,7 @@ proc test {name code {okpattern undefined}} {
lappend ::tests_failed $details
incr ::num_failed
send_data_packet $::test_server_fd err $name
send_data_packet $::test_server_fd err [join $details "\n"]
} else {
# Re-raise, let handler up the stack take care of this.
error $error $::errorInfo
@ -126,7 +124,7 @@ proc test {name code {okpattern undefined}} {
lappend ::tests_failed $details
incr ::num_failed
send_data_packet $::test_server_fd err $name
send_data_packet $::test_server_fd err [join $details "\n"]
}
}

2
tests/test_helper.tcl
View File

@ -277,7 +277,7 @@ proc the_end {} {
puts " $time seconds - $name"
}
if {[llength $::failed_tests]} {
puts "!!! WARNING: The following tests failed\n"
puts "\n[colorstr bold-red {!!! WARNING}] The following tests failed:\n"
foreach failed $::failed_tests {
puts "*** $failed"
}

14
tests/unit/other.tcl
View File

@ -1,4 +1,11 @@
start_server {tags {"other"}} {
if {$::force_failure} {
# This is used just for test suite development purposes.
test {Failing test} {
format err
} {ok}
}
test {SAVE - make sure there are all the types as values} {
# Wait for a background saving in progress to terminate
waitForBgsave r
@ -242,11 +249,4 @@ start_server {tags {"other"}} {
test {Perform a final SAVE to leave a clean DB on disk} {
r save
} {OK}
if {$::force_failure} {
# This is used just for test suite development purposes.
test {Failing test} {
format err
} {ok}
}
}