fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-03-30 22:31:03 +00:00
Code Issues Projects Releases Wiki Activity

Comments in redis-cli tests

Browse Source
This commit is contained in:
Pieter Noordhuis 2010-08-25 14:08:32 +02:00
parent ae77016e57
commit f9b252613b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/integration/redis-cli.tcl
View File

@ -28,6 +28,7 @@ start_server {tags {"cli"}} {
flush $fd flush $fd
} }
# Helpers to run tests in interactive mode
proc run_command {fd cmd} { proc run_command {fd cmd} {
write_cli $fd $cmd write_cli $fd $cmd
set lines [split [read_cli $fd] "\n"] set lines [split [read_cli $fd] "\n"]
@ -43,6 +44,7 @@ start_server {tags {"cli"}} {
unset ::env(FAKETTY) unset ::env(FAKETTY)
} }
# Helpers to run tests where stdout is not a tty
proc run_nontty_cli {args} { proc run_nontty_cli {args} {
set fd [open [format "|src/redis-cli -p %d -n 9 $args" [srv port]] "r"] set fd [open [format "|src/redis-cli -p %d -n 9 $args" [srv port]] "r"]
fconfigure $fd -buffering none fconfigure $fd -buffering none
@ -56,6 +58,7 @@ start_server {tags {"cli"}} {
test "Non-interactive non-TTY CLI: $name" $code test "Non-interactive non-TTY CLI: $name" $code
} }
# Helpers to run tests where stdout is a tty
proc run_tty_cli {args} { proc run_tty_cli {args} {
set ::env(FAKETTY) 1 set ::env(FAKETTY) 1
set resp [run_nontty_cli {*}$args] set resp [run_nontty_cli {*}$args]