imap: compile UID FETCH to opcodes

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

diff --git a/t/imap.t b/t/imap.t
index 9b64f1646c69f4e062ac222bef2434fb5a0d48e1..2401237c8a05b0f91f7d69037c04e519290ad1ee 100644 (file)
--- a/t/imap.t
+++ b/t/imap.t
@@ -6,11 +6,54 @@ use strict;
 use Test::More;
 use PublicInbox::IMAP;
 use PublicInbox::IMAPD;
+use PublicInbox::TestCommon;
+require_mods(qw(DBD::SQLite));
+require_git 2.6;
+use POSIX qw(strftime);
 
-{ # make sure we get '%' globbing right
-       my @n = map { { newsgroup => $_ } } (qw(x.y.z x.z.y));
-       my $self = { imapd => { grouplist => \@n } };
-       PublicInbox::IMAPD::refresh_inboxlist($self->{imapd});
+{
+       my $parse_date = \&PublicInbox::IMAP::parse_date;
+       is(strftime('%Y-%m-%d', gmtime($parse_date->('02-Oct-1993'))),
+               '1993-10-02', 'parse_date works');
+       is(strftime('%Y-%m-%d', gmtime($parse_date->('2-Oct-1993'))),
+               '1993-10-02', 'parse_date works w/o leading zero');
+
+       is($parse_date->('2-10-1993'), undef, 'bad month');
+
+       # from what I can tell, RFC 3501 says nothing about date-month
+       # case-insensitivity, so be case-sensitive for now
+       is($parse_date->('02-oct-1993'), undef, 'case-sensitive month');
+}
+
+my ($tmpdir, $for_destroy) = tmpdir();
+my $cfgfile = "$tmpdir/config";
+{
+       open my $fh, '>', $cfgfile or BAIL_OUT $!;
+       print $fh <<EOF or BAIL_OUT $!;
+[publicinbox "a"]
+       inboxdir = $tmpdir/a
+       newsgroup = x.y.z
+[publicinbox "b"]
+       inboxdir = $tmpdir/b
+       newsgroup = x.z.y
+[publicinbox "c"]
+       inboxdir = $tmpdir/c
+       newsgroup = IGNORE.THIS
+EOF
+       close $fh or BAIL_OUT $!;
+       local $ENV{PI_CONFIG} = $cfgfile;
+       for my $x (qw(a b c)) {
+               ok(run_script(['-init', '-Lbasic', '-V2', $x, "$tmpdir/$x",
+                               "https://example.com/$x", "$x\@example.com"]),
+                       "init $x");
+       }
+       my $imapd = PublicInbox::IMAPD->new;
+       my @w;
+       local $SIG{__WARN__} = sub { push @w, @_ };
+       $imapd->refresh_groups;
+       my $self = { imapd => $imapd };
+       is(scalar(@w), 1, 'got a warning for upper-case');
+       like($w[0], qr/IGNORE\.THIS/, 'warned about upper-case');
        my $res = PublicInbox::IMAP::cmd_list($self, 'tag', 'x', '%');
        is(scalar($$res =~ tr/\n/\n/), 2, 'only one result');
        like($$res, qr/ x\r\ntag OK/, 'saw expected');
@@ -27,11 +70,11 @@ use PublicInbox::IMAPD;
 {
        my $partial_prepare = \&PublicInbox::IMAP::partial_prepare;
        my $x = {};
-       my $r = $partial_prepare->($x, [], my $p = 'BODY.PEEK[9]');
+       my $r = $partial_prepare->($x, [], my $p = 'BODY[9]');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY.PEEK[9]<5>');
+       $r = $partial_prepare->($x, [], $p = 'BODY[9]<5>');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY.PEEK[9]<5.1>');
+       $r = $partial_prepare->($x, [], $p = 'BODY[9]<5.1>');
        ok($r, $p);
        $r = $partial_prepare->($x, [], $p = 'BODY[1.1]');
        ok($r, $p);
@@ -46,18 +89,38 @@ use PublicInbox::IMAPD;
        my $partial_body = \&PublicInbox::IMAP::partial_body;
        my $partial_hdr_get = \&PublicInbox::IMAP::partial_hdr_get;
        my $partial_hdr_not = \&PublicInbox::IMAP::partial_hdr_not;
+       my $hdrs_regexp = \&PublicInbox::IMAP::hdrs_regexp;
        is_deeply($x, {
-               'BODY.PEEK[9]' => [ $partial_body, 9, undef, undef, undef ],
-               'BODY.PEEK[9]<5>' => [ $partial_body, 9, undef, 5, undef ],
-               'BODY.PEEK[9]<5.1>' => [ $partial_body, 9, undef, 5, 1 ],
+               'BODY[9]' => [ $partial_body, 9, undef, undef, undef ],
+               'BODY[9]<5>' => [ $partial_body, 9, undef, 5, undef ],
+               'BODY[9]<5.1>' => [ $partial_body, 9, undef, 5, 1 ],
                'BODY[1.1]' => [ $partial_body, '1.1', undef, undef, undef ],
                'BODY[HEADER.FIELDS (DATE FROM)]' => [ $partial_hdr_get,
-                                       undef, 'DATE FROM', undef, undef ],
+                                       undef, $hdrs_regexp->('DATE FROM'),
+                                       undef, undef ],
                'BODY[HEADER.FIELDS.NOT (TO)]' => [ $partial_hdr_not,
-                                               undef, 'TO', undef, undef ],
+                                               undef, $hdrs_regexp->('TO'),
+                                               undef, undef ],
                'BODY[1.1.HEADER.FIELDS (TO)]' => [ $partial_hdr_get,
-                                               '1.1', 'TO', undef, undef ],
+                                               '1.1', $hdrs_regexp->('TO'),
+                                               undef, undef ],
        }, 'structure matches expected');
 }
 
+{
+       my $fetch_compile = \&PublicInbox::IMAP::fetch_compile;
+       my ($cb, $ops, $partial) = $fetch_compile->(['BODY[]']);
+       is($partial, undef, 'no partial fetch data');
+       is_deeply($ops,
+               [ 'BODY[]', \&PublicInbox::IMAP::emit_rfc822 ],
+               'proper key and op compiled for BODY[]');
+
+       ($cb, $ops, $partial) = $fetch_compile->(['BODY', 'BODY[]']);
+       is_deeply($ops, [
+               'BODY[]', \&PublicInbox::IMAP::emit_rfc822,
+               undef, \&PublicInbox::IMAP::op_eml_new,
+               'BODY', \&PublicInbox::IMAP::emit_body,
+       ], 'placed op_eml_new before emit_body');
+}
+
 done_testing;