lei: test some likely errors due to misuse

Because user errors happen...

1 files changed, 14 insertions, 0 deletions

diff --git a/t/lei.t b/t/lei.t
index c804ff59..8bb4e439 100644
--- a/t/lei.t
+++ b/t/lei.t
@@ -181,6 +181,20 @@ my $test_external = sub {
         $lei->('ls-external');
         like($out, qr/boost=0\n/s, 'ls-external has output');
 
+        ok(!$lei->(qw(q s:prefix -o /dev/null -f maildir)), 'bad maildir');
+        like($err, qr!/dev/null exists and is not a directory!,
+                'error shown');
+        is($? >> 8, 1, 'errored out with exit 1');
+
+        ok(!$lei->(qw(q s:prefix -f mboxcl2 -o), $home), 'bad mbox');
+        like($err, qr!\Q$home\E exists and is not a regular file!,
+                'error shown');
+        is($? >> 8, 1, 'errored out with exit 1');
+
+        ok(!$lei->(qw(q s:prefix -o /dev/stdout -f Mbox2)), 'bad format');
+        like($err, qr/bad mbox --format=mbox2/, 'error shown');
+        is($? >> 8, 1, 'errored out with exit 1');
+
         # note, on a Bourne shell users should be able to use either:
         #        s:"use boolean prefix"
         #        "s:use boolean prefix"