diff options
Diffstat (limited to 'tests/unit/basic.tcl')
| -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} |