xt/lei-auth-fail: use valid label name

[public-inbox.git] / xt / lei-auth-fail.t

diff --git a/xt/lei-auth-fail.t b/xt/lei-auth-fail.t
index 06cb853353bb828eb34a7799cb0a9250b00a61a9..1ccc2ab22e445ebed66c28e439421704b825f66c 100644 (file)
--- a/xt/lei-auth-fail.t
+++ b/xt/lei-auth-fail.t
@@ -1,7 +1,8 @@
 #!perl -w
-# Copyright (C) 2021 all contributors <meta@public-inbox.org>
+# Copyright (C) all contributors <meta@public-inbox.org>
 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
-use strict; use v5.10.1; use PublicInbox::TestCommon;
+use v5.12;
+use PublicInbox::TestCommon;
 require_mods(qw(Mail::IMAPClient lei));
 
 # TODO: mock IMAP server which fails at authentication so we don't
@@ -13,7 +14,7 @@ test_lei(sub {
        for my $pfx ([qw(q z:0.. --only), "$ro_home/t1", '-o'],
                        [qw(convert -o mboxrd:/dev/stdout)],
                        [qw(convert t/utf8.eml -o), $imap_fail],
-                       ['import'], [qw(tag +L:INBOX)]) {
+                       ['import'], [qw(tag +L:inbox)]) {
                ok(!lei(@$pfx, $imap_fail), "IMAP auth failure on @$pfx");
                like($lei_err, qr!\bE:.*?imaps?://.*?!sm, 'error shown');
                unlike($lei_err, qr!Hunter2!s, 'password not shown');