lei import: support UIDVALIDITY in IMAP URL

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

diff --git a/t/lei-import-imap.t b/t/lei-import-imap.t
index 611328b4c1567ce4626cf9bea901189fdf1d9ba6..c977c68ef380d17129ef977ecd5136665ee2171b 100644 (file)
--- a/t/lei-import-imap.t
+++ b/t/lei-import-imap.t
@@ -24,6 +24,10 @@ test_lei({ tmpdir => $tmpdir }, sub {
        lei_ok('import', $url);
        lei_ok 'ls-sync';
        like($lei_out, qr!\A\Q$url\E;UIDVALIDITY=\d+\n\z!, 'ls-sync');
+       chomp(my $u = $lei_out);
+       lei_ok('import', $u, \'UIDVALIDITY match in URL');
+       $u =~ s/;UIDVALIDITY=(\d+)\s*/;UIDVALIDITY=9$1/s;
+       ok(!lei('import', $u), 'UIDVALIDITY mismatch in URL rejected');
 
        lei_ok('inspect', $url);
        my $inspect = json_utf8->decode($lei_out);