t/lei*: check error messages on failures

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

diff --git a/t/lei-import-http.t b/t/lei-import-http.t
index 2104c778854c22c2793086fee266c229f89e9d22..e9eec1f7e895089658ef97b25bbf668beefa742b 100644 (file)
--- a/t/lei-import-http.t
+++ b/t/lei-import-http.t
@@ -17,6 +17,7 @@ test_lei({ tmpdir => $tmpdir }, sub {
        my $url = "http://$host_port/t2";
        for my $p (qw(bogus@x/t.mbox.gz bogus@x/raw ?q=noresultever)) {
                ok(!lei('import', "$url/$p"), "/$p fails properly");
+               like($lei_err, qr/curl.*404/, 'got curl 404');
        }
        for my $p (qw(/ /T/ /t/ /t.atom)) {
                ok(!lei('import', "$url/m\@example$p"), "/$p fails");
@@ -42,5 +43,6 @@ test_lei({ tmpdir => $tmpdir }, sub {
 
        ok(!lei(qw(import --mail-sync), "$url/x\@example.com/raw"),
                '--mail-sync fails on HTTP');
+       like($lei_err, qr/--mail-sync/, 'error message notes --mail-sync');
 });
 done_testing;