From 45c507b0bd0a036cbc78efa1b180b696130b618c Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 18 Jun 2014 15:54:55 +0200
Subject: [PATCH] Test: use higher level redis.tcl proc to read replies.

---
 tests/unit/basic.tcl | 6 +++---
 1 file 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}