Commit 1c343ec2 authored by antirez's avatar antirez
Browse files

Test: use higher level redis.tcl proc to read replies.

parent 5260ce12
...@@ -290,9 +290,9 @@ start_server {tags {"basic"}} { ...@@ -290,9 +290,9 @@ start_server {tags {"basic"}} {
puts -nonewline $fd "SET k1 xyzk\r\nGET k1\r\nPING\r\n" puts -nonewline $fd "SET k1 xyzk\r\nGET k1\r\nPING\r\n"
flush $fd flush $fd
set res {} set res {}
append res [string match OK* [::redis::redis_read_reply $fd]] append res [string match OK* [r read]]
append res [::redis::redis_read_reply $fd] append res [r read]
append res [string match PONG* [::redis::redis_read_reply $fd]] append res [string match PONG* [r read]]
format $res format $res
} {1xyzk1} } {1xyzk1}
......
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