lei: q: shell completion for --(include|exclude|only)

Because .onion URLs names are long!

1 files changed, 6 insertions, 0 deletions

diff --git a/t/lei.t b/t/lei.t
index a46e46f2..33f47ae4 100644
--- a/t/lei.t
+++ b/t/lei.t
@@ -232,6 +232,12 @@ my $test_external = sub {
                         "partial completion for URL $u");
                 is($out, "https://example.com/ibx/\n",
                         "completed partial URL $u");
+                for my $qo (qw(-I --include --exclude --only)) {
+                        ok($lei->(qw(_complete lei q), $qo, $u),
+                                "partial completion for URL q $qo $u");
+                        is($out, "https://example.com/ibx/\n",
+                                "completed partial URL $u on q $qo");
+                }
         }
 
         $lei->('ls-external');