opensourcemirror
/
redis
mirror of https://github.com/antirez/redis.git
1
0
Fork 0
Code Issues Releases Wiki Activity

proc to retrieve values from INFO properties

This commit is contained in:
Pieter Noordhuis 2010-05-14 20:48:57 +02:00
parent 4d16bb253c
commit 9cf9e6f197
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/support/util.tcl
View File

@ -25,10 +25,16 @@ proc zlistAlikeSort {a b} {
string compare [lindex $a 1] [lindex $b 1]
}
# Return value for INFO property
proc status {r property} {
if {[regexp "\r\n$property:(.*?)\r\n" [$r info] _ value]} {
set _ $value
}
}
proc waitForBgsave r {
while 1 {
set i [$r info]
if {[string match {*bgsave_in_progress:1*} $i]} {
if {[status r bgsave_in_progress] eq 1} {
puts -nonewline "\nWaiting for background save to finish... "
flush stdout
after 1000
@ -40,8 +46,7 @@ proc waitForBgsave r {
proc waitForBgrewriteaof r {
while 1 {
set i [$r info]
if {[string match {*bgrewriteaof_in_progress:1*} $i]} {
if {[status r bgrewriteaof_in_progress] eq 1} {
puts -nonewline "\nWaiting for background AOF rewrite to finish... "
flush stdout
after 1000