diff options
author | Eric Wong <e@80x24.org> | 2021-02-25 10:11:04 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2021-02-26 02:35:49 +0000 |
commit | cf7c27cadd9ce7800beedc72513cf12fda77420f (patch) | |
tree | 375a378c8f79b7535b9accf2e3037726429b3d5d /t | |
parent | 9d1d7c2b505454fba331666a951e0f7997500b3c (diff) | |
download | public-inbox-cf7c27cadd9ce7800beedc72513cf12fda77420f.tar.gz |
Since we recommend $IN_FORMAT:$LOCATION, this is hopefully not intrusive (not that this is released software, yet). This is to be consistent with "lei convert" usage. We'll keep "-f" only for output formats, since that is used for "lei q" and "lei convert" for outputs
Diffstat (limited to 't')
-rw-r--r-- | t/lei-import.t | 12 | ||||
-rw-r--r-- | t/lei_to_mail.t | 2 |
2 files changed, 7 insertions, 7 deletions
diff --git a/t/lei-import.t b/t/lei-import.t index fa4fc504..edb0cd20 100644 --- a/t/lei-import.t +++ b/t/lei-import.t @@ -3,13 +3,13 @@ # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> use strict; use v5.10.1; use PublicInbox::TestCommon; test_lei(sub { -ok(!lei(qw(import -f bogus), 't/plack-qp.eml'), 'fails with bogus format'); +ok(!lei(qw(import -F bogus), 't/plack-qp.eml'), 'fails with bogus format'); like($lei_err, qr/\bbogus unrecognized/, 'gave error message'); lei_ok(qw(q s:boolean), \'search miss before import'); unlike($lei_out, qr/boolean/i, 'no results, yet'); open my $fh, '<', 't/data/0001.patch' or BAIL_OUT $!; -lei_ok([qw(import -f eml -)], undef, { %$lei_opt, 0 => $fh }, +lei_ok([qw(import -F eml -)], undef, { %$lei_opt, 0 => $fh }, \'import single file from stdin') or diag $lei_err; close $fh; lei_ok(qw(q s:boolean), \'search hit after import'); @@ -26,7 +26,7 @@ lei_ok(qw(q s:boolean -f mboxrd), \'blob accessible after import'); }); is_deeply(\@cmp, $expect, 'got expected message in mboxrd'); } -lei_ok(qw(import -f eml), 't/data/message_embed.eml', +lei_ok(qw(import -F eml), 't/data/message_embed.eml', \'import single file by path'); my $str = <<''; @@ -35,7 +35,7 @@ Message-ID: <x@y> Status: RO my $opt = { %$lei_opt, 0 => \$str }; -lei_ok([qw(import -f eml -)], undef, $opt, +lei_ok([qw(import -F eml -)], undef, $opt, \'import single file with keywords from stdin'); lei_ok(qw(q m:x@y)); my $res = json_utf8->decode($lei_out); @@ -43,13 +43,13 @@ is($res->[1], undef, 'only one result'); is_deeply($res->[0]->{kw}, ['seen'], "message `seen' keyword set"); $str =~ tr/x/v/; # v@y -lei_ok([qw(import --no-kw -f eml -)], undef, $opt, +lei_ok([qw(import --no-kw -F eml -)], undef, $opt, \'import single file with --no-kw from stdin'); lei(qw(q m:v@y)); $res = json_utf8->decode($lei_out); is($res->[1], undef, 'only one result'); is_deeply($res->[0]->{kw}, [], 'no keywords set'); -# see t/lei_to_mail.t for "import -f mbox*" +# see t/lei_to_mail.t for "import -F mbox*" }); done_testing; diff --git a/t/lei_to_mail.t b/t/lei_to_mail.t index 72b90700..7898cc48 100644 --- a/t/lei_to_mail.t +++ b/t/lei_to_mail.t @@ -130,7 +130,7 @@ my $orig = do { }; test_lei(sub { - ok(lei(qw(import -f), $mbox, $fn), 'imported mbox'); + ok(lei(qw(import -F), $mbox, $fn), 'imported mbox'); ok(lei(qw(q s:x)), 'lei q works') or diag $lei_err; my $res = json_utf8->decode($lei_out); my $x = $res->[0]; |