Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
1c343ec2
Commit
1c343ec2
authored
Jun 18, 2014
by
antirez
Browse files
Test: use higher level redis.tcl proc to read replies.
parent
5260ce12
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/basic.tcl
View file @
1c343ec2
...
...
@@ -290,9 +290,9 @@ start_server {tags {"basic"}} {
puts -nonewline $fd
"SET k1 xyzk
\r\n
GET k1
\r\n
PING
\r\n
"
flush $fd
set res
{}
append res
[
string match OK*
[
::redis::redis_read_reply $f
d
]]
append res
[
::redis::redis_read_reply $f
d
]
append res
[
string match PONG*
[
::redis::redis_read_reply $f
d
]]
append res
[
string match OK*
[
r rea
d
]]
append res
[
r rea
d
]
append res
[
string match PONG*
[
r rea
d
]]
format $res
}
{
1xyzk1
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment