diff options
Diffstat (limited to 't')
-rw-r--r-- | t/lei-import-imap.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/lei-import-imap.t b/t/lei-import-imap.t index 611328b4..c977c68e 100644 --- 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); |