tests/unit/auth.tcl

   1 start_server {tags {"auth"} overrides {requirepass foobar}} {
   2     test {AUTH fails when a wrong password is given} {
   3         catch {r auth wrong!} err
   4         format $err
   5     } {ERR*invalid password}
   6
   7     test {Arbitrary command gives an error when AUTH is required} {
   8         catch {r set foo bar} err
   9         format $err
  10     } {ERR*operation not permitted}
  11
  12     test {AUTH succeeds when the right password is given} {
  13         r auth foobar
  14     } {OK}
  15 }