"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "tests/integration/redis-cli.tcl" between
redis-6.2-rc3.tar.gz and redis-6.2.0.tar.gz

About: redis is an advanced key-value store. It is often referred to as a data structure server since keys can contain strings, hashes, lists, sets and sorted sets.

redis-cli.tcl  (redis-6.2-rc3):redis-cli.tcl  (redis-6.2.0)
skipping to change at line 112 skipping to change at line 112
# Helpers to run tests where stdout is a tty (fake it) # Helpers to run tests where stdout is a tty (fake it)
proc test_tty_cli {name code} { proc test_tty_cli {name code} {
set ::env(FAKETTY) 1 set ::env(FAKETTY) 1
test "Non-interactive TTY CLI: $name" $code test "Non-interactive TTY CLI: $name" $code
unset ::env(FAKETTY) unset ::env(FAKETTY)
} }
test_interactive_cli "INFO response should be printed raw" { test_interactive_cli "INFO response should be printed raw" {
set lines [split [run_command $fd info] "\n"] set lines [split [run_command $fd info] "\n"]
foreach line $lines { foreach line $lines {
assert [regexp {^$|^#|^[a-z0-9_]+:.+} $line] assert [regexp {^$|^#|^[^#:]+:} $line]
} }
} }
test_interactive_cli "Status reply" { test_interactive_cli "Status reply" {
assert_equal "OK" [run_command $fd "set key foo"] assert_equal "OK" [run_command $fd "set key foo"]
} }
test_interactive_cli "Integer reply" { test_interactive_cli "Integer reply" {
assert_equal "(integer) 1" [run_command $fd "incr counter"] assert_equal "(integer) 1" [run_command $fd "incr counter"]
} }
 End of changes. 1 change blocks. 
1 lines changed or deleted 1 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)