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

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}