ACL LOG: test for AUTH reason.

1 files changed, 9 insertions, 0 deletions

diff --git a/tests/unit/acl.tcl b/tests/unit/acl.tcl
index bd909d36c..0e6d5c66a 100644
--- a/tests/unit/acl.tcl
+++ b/tests/unit/acl.tcl
@@ -228,4 +228,13 @@ start_server {tags {"acl"}} {
         assert {[llength [r ACL LOG]] > 1}
         assert {[llength [r ACL LOG 2]] == 2}
     }
+
+    test {ACL LOG can log failed auth attempts} {
+        catch {r AUTH antirez wrong-password}
+        set entry [lindex [r ACL LOG] 0]
+        assert {[dict get $entry context] eq {toplevel}}
+        assert {[dict get $entry reason] eq {auth}}
+        assert {[dict get $entry object] eq {AUTH}}
+        assert {[dict get $entry username] eq {antirez}}
+    }
 }