fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-19 17:10:50 +00:00
Code Issues Projects Releases Wiki Activity

more advanced leaks detection in test redis

Browse Source
This commit is contained in:
antirez 2010-04-15 19:13:14 +02:00
parent fb765a0ae3
commit bc55456975
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
test-redis.tcl
View File

@ -23,6 +23,12 @@ proc test {name code okpattern} {
puts "!! ERROR expected\n'$okpattern'\nbut got\n'$retval'" puts "!! ERROR expected\n'$okpattern'\nbut got\n'$retval'"
incr ::failed incr ::failed
} }
if {$::traceleaks} {
if {![string match {*0 leaks*} [exec leaks redis-server]]} {
puts "--------- Test $::testnum LEAKED! --------"
exit 1
}
}
} }
proc randstring {min max {type binary}} { proc randstring {min max {type binary}} {
@ -2150,6 +2156,7 @@ proc stress {} {
set ::host 127.0.0.1 set ::host 127.0.0.1
set ::port 6379 set ::port 6379
set ::stress 0 set ::stress 0
set ::traceleaks 0
set ::flush 0 set ::flush 0
set ::first 0 set ::first 0
set ::last 1000000 set ::last 1000000
@ -2165,8 +2172,10 @@ for {set j 0} {$j < [llength $argv]} {incr j} {
} elseif {$opt eq {-p} && !$lastarg} { } elseif {$opt eq {-p} && !$lastarg} {
set ::port $arg set ::port $arg
incr j incr j
} elseif {$opt eq {-stress}} { } elseif {$opt eq {--stress}} {
set ::stress 1 set ::stress 1
} elseif {$opt eq {--trace-leaks}} {
set ::traceleaks 1
} elseif {$opt eq {--flush}} { } elseif {$opt eq {--flush}} {
set ::flush 1 set ::flush 1
} elseif {$opt eq {--first} && !$lastarg} { } elseif {$opt eq {--first} && !$lastarg} {