Lines Matching refs:fd

4         set fd [open [format "|src/redis-cli -p %d -n 9" [srv port]] "r+"]
5         fconfigure $fd -buffering none
6         fconfigure $fd -blocking false
7         fconfigure $fd -translation binary
8         assert_equal "redis> " [read_cli $fd]
9         set _ $fd
12     proc close_cli {fd} {
13         close $fd
16     proc read_cli {fd} {
17         set buf [read $fd]
21             set buf [read $fd]
26     proc write_cli {fd buf} {
27         puts $fd $buf
28         flush $fd
32     proc run_command {fd cmd} {
33         write_cli $fd $cmd
34         set lines [split [read_cli $fd] "\n"]
41         set fd [open_cli]
43         close_cli $fd
67         set fd [open "|$cmd" "r"]
68         fconfigure $fd -buffering none
69         fconfigure $fd -translation binary
70         set resp [read $fd 1048576]
71         close $fd
99         set lines [split [run_command $fd info] "\n"]
106         assert_equal "OK" [run_command $fd "set key foo"]
110         assert_equal "(integer) 1" [run_command $fd "incr counter"]
115         assert_equal "\"foo\"" [run_command $fd "get key"]
121         assert_equal "1. \"foo\"\n2. \"bar\"" [run_command $fd "lrange list 0 -1"]
125         assert_equal "OK" [run_command $fd "set key \"bar\""]
127         assert_equal "OK" [run_command $fd "set key \" bar \""]
129         assert_equal "OK" [run_command $fd "set key \"\\\"bar\\\"\""]
131         assert_equal "OK" [run_command $fd "set key \"\tbar\t\""]
135         assert_equal "Invalid argument(s)" [run_command $fd "get \"\"key"]
136         assert_equal "Invalid argument(s)" [run_command $fd "get \"key\"x"]
139         assert_equal "OK" [run_command $fd "set key\"\" bar"]