lei: fix completion of --no-kw / --no-keywords

[public-inbox.git] / t / lei.t

diff --git a/t/lei.t b/t/lei.t
index 41d854e859a7ff3accfdfe06a61b61244ede0327..df33395712925dc3635b5dfdc7c42acaf89d3f6c 100644 (file)
--- a/t/lei.t
+++ b/t/lei.t
@@ -363,7 +363,7 @@ my $test_completion = sub {
                        --mua --mua-cmd --no-local --local --verbose -v
                        --save-as --no-remote --remote --torsocks
                        --reverse -r )) {
-               ok($out{$sw}, "$sw offered as completion");
+               ok($out{$sw}, "$sw offered as `lei q' completion");
        }
 
        ok($lei->(qw(_complete lei q --form)), 'complete q --format');
@@ -376,6 +376,12 @@ my $test_completion = sub {
                        ok($out{$f}, "got $sw $f as output format");
                }
        }
+       ok($lei->(qw(_complete lei import)), 'complete import');
+       %out = map { $_ => 1 } split(/\s+/s, $out);
+       for my $sw (qw(--flags --no-flags --no-kw --kw --no-keywords
+                       --keywords)) {
+               ok($out{$sw}, "$sw offered as `lei import' completion");
+       }
 };
 
 my $test_fail = sub {