diff options
author | antirez <antirez@gmail.com> | 2014-06-18 15:54:55 +0200 |
---|---|---|
committer | antirez <antirez@gmail.com> | 2014-06-18 16:25:53 +0200 |
commit | 1c343ec29f49bbe8c83a61b1c5c10d5ec3c1ca8f (patch) | |
tree | ddeb534e13529c04a642f318b397fdb6c668ee78 /tests | |
parent | 5260ce1260803f5153e33e66014c60d7b6f855ab (diff) | |
download | redis-1c343ec29f49bbe8c83a61b1c5c10d5ec3c1ca8f.tar.gz |
Test: use higher level redis.tcl proc to read replies.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/unit/basic.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl index 8da358968..6f7fe292c 100644 --- a/tests/unit/basic.tcl +++ b/tests/unit/basic.tcl @@ -290,9 +290,9 @@ start_server {tags {"basic"}} { puts -nonewline $fd "SET k1 xyzk\r\nGET k1\r\nPING\r\n" flush $fd set res {} - append res [string match OK* [::redis::redis_read_reply $fd]] - append res [::redis::redis_read_reply $fd] - append res [string match PONG* [::redis::redis_read_reply $fd]] + append res [string match OK* [r read]] + append res [r read] + append res [string match PONG* [r read]] format $res } {1xyzk1} |