diff options
author | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-08-04 17:02:13 +0200 |
---|---|---|
committer | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-08-04 17:02:13 +0200 |
commit | 07242c0ccf1fd6a4d8199fa09981e6f7a3a1cce9 (patch) | |
tree | b9e9472314ca18825ea18c43385176368cb6e7cf /tests/integration | |
parent | 0439d792c46efa328d67e098d688435bca1e2700 (diff) | |
download | redis-07242c0ccf1fd6a4d8199fa09981e6f7a3a1cce9.tar.gz |
Tests for redis-cli in non-interactive mode
Minor change in redis-cli output for the (multi-)bulk response but this
will be fixed in the next commit.
Diffstat (limited to 'tests/integration')
-rw-r--r-- | tests/integration/redis-cli.tcl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tests/integration/redis-cli.tcl b/tests/integration/redis-cli.tcl index 6e1061351..a10968b1d 100644 --- a/tests/integration/redis-cli.tcl +++ b/tests/integration/redis-cli.tcl @@ -41,6 +41,19 @@ start_server {tags {"cli"}} { close_cli $fd } + proc run_cli {args} { + set fd [open [format "|src/redis-cli -p %d -n 9 $args" [srv port]] "r"] + fconfigure $fd -buffering none + fconfigure $fd -translation binary + set resp [read $fd 1048576] + close $fd + set _ $resp + } + + proc test_noninteractive_cli {name code} { + test "Non-interactive CLI: $name" $code + } + test_interactive_cli "INFO response should be printed raw" { set lines [split [run_command $fd info] "\n"] foreach line $lines { @@ -85,4 +98,26 @@ start_server {tags {"cli"}} { assert_equal "OK" [run_command $fd "set key\"\" bar"] assert_equal "bar" [r get key] } + + test_noninteractive_cli "Status reply" { + assert_equal "OK\n" [run_cli set key bar] + assert_equal "bar" [r get key] + } + + test_noninteractive_cli "Integer reply" { + r del counter + assert_equal "(integer) 1\n" [run_cli incr counter] + } + + test_noninteractive_cli "Bulk reply" { + r set key "tab\tnewline\n" + assert_equal "\"tab\\tnewline\\n\"\n" [run_cli get key] + } + + test_noninteractive_cli "Multi-bulk reply" { + r del list + r rpush list foo + r rpush list bar + assert_equal "1. \"foo\"\n2. \"bar\"\n" [run_cli lrange list 0 -1] + } } |