Commit cabe03eb authored by antirez's avatar antirez
Browse files

more valgrind friendly test

parent 10ba492f
......@@ -3,3 +3,15 @@
Memcheck:Cond
fun:lzf_compress
}
{
<lzf_unitialized_hash_table>
Memcheck:Value4
fun:lzf_compress
}
{
<lzf_unitialized_hash_table>
Memcheck:Value8
fun:lzf_compress
}
set ::global_overrides {}
set ::tags {}
set ::valgrind_errors {}
proc error_and_quit {config_file error} {
puts "!!COULD NOT START REDIS-SERVER\n"
......@@ -16,11 +17,12 @@ proc check_valgrind_errors stderr {
close $fd
if {![regexp -- {ERROR SUMMARY: 0 errors} $buf] ||
![regexp -- {definitely lost: 0 bytes} $buf]} {
(![regexp -- {definitely lost: 0 bytes} $buf] &&
![regexp -- {no leaks are possible} $buf])} {
puts "*** VALGRIND ERRORS ***"
puts $buf
puts "--- press enter to continue ---"
gets stdin
puts "-----------------------"
append ::valgrind_errors "$buf\n\n"
}
}
......
......@@ -138,6 +138,7 @@ proc execute_everything {} {
proc main {} {
cleanup
set exit_with_error 0
if {[string length $::file] > 0} {
foreach {file} [split $::file ,] {
......@@ -169,8 +170,14 @@ proc main {} {
}
puts ""
exit 1
incr exit_with_error
}
if {[string length $::valgrind_errors]} {
puts "Valgrind errors:\n$::valgrind_errors"
incr exit_with_error
}
if {$exit_with_error} {exit 1}
}
# parse arguments
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment