imap: FETCH: more granular CRLF conversion

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

diff --git a/t/imap.t b/t/imap.t
index af59ef69386372ff824df970ca69733403f55f86..81b3d844e76013aee4b7310369c11d9844748a84 100644 (file)
--- a/t/imap.t
+++ b/t/imap.t
@@ -9,6 +9,21 @@ use PublicInbox::IMAPD;
 use PublicInbox::TestCommon;
 require_mods(qw(DBD::SQLite));
 require_git 2.6;
+use POSIX qw(strftime);
+
+{
+       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";
@@ -55,21 +70,26 @@ EOF
 {
        my $partial_prepare = \&PublicInbox::IMAP::partial_prepare;
        my $x = {};
-       my $r = $partial_prepare->($x, [], my $p = 'BODY[9]');
+       my $n = 0;
+       my $r = $partial_prepare->(\$n, $x, [], my $p = 'BODY[9]');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY[9]<5>');
+       $r = $partial_prepare->(\$n, $x, [], $p = 'BODY[9]<5>');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY[9]<5.1>');
+       $r = $partial_prepare->(\$n, $x, [], $p = 'BODY[9]<5.1>');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY[1.1]');
+       $r = $partial_prepare->(\$n, $x, [], $p = 'BODY[1.1]');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY[HEADER.FIELDS (DATE FROM)]');
+       $r = $partial_prepare->(\$n, $x, [],
+                               $p = 'BODY[HEADER.FIELDS (DATE FROM)]');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY[HEADER.FIELDS.NOT (TO)]');
+       $r = $partial_prepare->(\$n, $x, [],
+                               $p = 'BODY[HEADER.FIELDS.NOT (TO)]');
        ok($r, $p);
-       $r = $partial_prepare->($x, [], $p = 'BODY[HEDDER.FIELDS.NOT (TO)]');
+       $r = $partial_prepare->(\$n, $x, [],
+                               $p = 'BODY[HEDDER.FIELDS.NOT (TO)]');
        ok(!$r, "rejected misspelling $p");
-       $r = $partial_prepare->($x, [], $p = 'BODY[1.1.HEADER.FIELDS (TO)]');
+       $r = $partial_prepare->(\$n, $x, [],
+                               $p = 'BODY[1.1.HEADER.FIELDS (TO)]');
        ok($r, $p);
        my $partial_body = \&PublicInbox::IMAP::partial_body;
        my $partial_hdr_get = \&PublicInbox::IMAP::partial_hdr_get;
@@ -92,4 +112,22 @@ EOF
        }, '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, [
+               undef, \&PublicInbox::IMAP::op_crlf_bref,
+               'BODY[]', \&PublicInbox::IMAP::emit_rfc822
+       ], 'proper key and op compiled for BODY[]');
+
+       ($cb, $ops, $partial) = $fetch_compile->(['BODY', 'BODY[]']);
+       is_deeply($ops, [
+               undef, \&PublicInbox::IMAP::op_crlf_bref,
+               '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;