t/www_listing: require opt-in for grokmirror tests

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

diff --git a/t/lei-import-imap.t b/t/lei-import-imap.t
index 34fd6cf999a714afda741ceb14d79f772dc430b7..315567b3b8d4fea66bd2211e11cf377aaee603ea 100644 (file)
--- a/t/lei-import-imap.t
+++ b/t/lei-import-imap.t
@@ -14,6 +14,12 @@ 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);
@@ -37,6 +43,7 @@ test_lei({ tmpdir => $tmpdir }, sub {
        $url = $u;
        $u =~ s/;UIDVALIDITY=(\d+)\s*/;UIDVALIDITY=9$1/s;
        ok(!lei('import', $u), 'UIDVALIDITY mismatch in URL rejected');
+       like($lei_err, qr/UIDVALIDITY mismatch/, 'mismatch noted');
 
        lei_ok('inspect', $url);
        my $inspect = json_utf8->decode($lei_out);