Permalink
Browse files

more valgrind friendly test

  • Loading branch information...
1 parent 10ba492 commit cabe03eb758a898e5c0e6906890fd7ede0cc2be1 @antirez committed Jul 6, 2011
Showing with 25 additions and 4 deletions.
  1. +12 −0 src/valgrind.sup
  2. +5 −3 tests/support/server.tcl
  3. +8 −1 tests/test_helper.tcl
View
12 src/valgrind.sup
@@ -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
+}
View
8 tests/support/server.tcl
@@ -1,5 +1,6 @@
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"
}
}
View
9 tests/test_helper.tcl
@@ -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

0 comments on commit cabe03e

Please sign in to comment.