[PATCH] t/lei-import-imap: bail on missing UIDVALIDITY after import

[PATCH] t/lei-import-imap: bail on missing UIDVALIDITY after import

[Eric Wong]

I haven't been able to reproduce it, but I've seen the test
fail because ls-mail-sync didn't emit anything which matched
/;UIDVALIDITY=(\d+)\s*/.  Add some diagnostics and bail out
right away if it happens again.
---
 t/lei-import-imap.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/lei-import-imap.t b/t/lei-import-imap.t
index 3b6cb299..a835e82f 100644
--- a/t/lei-import-imap.t
+++ b/t/lei-import-imap.t
@@ -39,9 +39,10 @@ test_lei({ tmpdir => $tmpdir }, sub {
 	lei_ok 'ls-mail-sync';
 	like($lei_out, qr!$re\n\z!, 'ls-mail-sync');
 	chomp(my $u = $lei_out);
-	lei_ok('import', $u, \'UIDVALIDITY match in URL');
 	$url = $u;
-	$u =~ s/;UIDVALIDITY=(\d+)\s*/;UIDVALIDITY=9$1/s;
+	$u =~ s/;UIDVALIDITY=(\d+)\s*/;UIDVALIDITY=9$1/s or
+		xbail 'no UIDVALIDITY=\\d+ in URL=', \$u, 'lei_out=', \$lei_out;
+	lei_ok('import', $url, \'UIDVALIDITY match in URL');
 	ok(!lei('import', $u), 'UIDVALIDITY mismatch in URL rejected');
 	like($lei_err, qr/UIDVALIDITY mismatch/, 'mismatch noted');