]> Sergey Matveev's repositories - public-inbox.git/blobdiff - t/lei-import-imap.t
www: fix manifest.js.gz for default publicInbox.grokManifest
[public-inbox.git] / t / lei-import-imap.t
index 895b19ffdd52f31155c17686fabf2ee1e9bdfd5b..12f6fad0bd88a075f7dcd0a10ae57cff18436d8a 100644 (file)
@@ -13,6 +13,13 @@ my $host_port = tcp_host_port($sock);
 undef $sock;
 test_lei({ tmpdir => $tmpdir }, sub {
        my $url = "imap://$host_port/t.v2.0";
+       my $url_orig = $url;
+       lei_ok(qw(ls-mail-source), "imap://$host_port/");
+       like($lei_out, qr/^t\.v2\.0$/ms, 'shows mailbox');
+       lei_ok(qw(ls-mail-source), $url);
+       is($lei_out, "t.v2.0\n", 'shows only mailbox with filter');
+       lei_ok(qw(ls-mail-source -l), "imap://$host_port/");
+       is(ref(json_utf8->decode($lei_out)), 'ARRAY', 'ls-mail-source JSON');
 
        lei_ok(qw(q z:1..));
        my $out = json_utf8->decode($lei_out);
@@ -100,6 +107,8 @@ test_lei({ tmpdir => $tmpdir }, sub {
        lei_ok qw(lcat -f json), $uid_url;
        $out = json_utf8->decode($lei_out);
        is(scalar(@$out), 2, 'got JSON') or diag explain($out);
+       lei_ok qw(lcat), $url_orig;
+       is($lei_out, $orig, 'lcat w/o UID works');
 });
 
 done_testing;