t/lei-watch: add diagnostics for failure

I just got a difficult-to-reproduce failure, here; so there's
still some issues with the up-to-dateness of the inotify watcher.

diff --git a/t/lei-watch.t b/t/lei-watch.t
index df887a03dc77fb0af6f79290d4814504a8e0dff6..9158571c60cc75bfa3d458021c5939a0a441651c 100644 (file)
--- a/t/lei-watch.t
+++ b/t/lei-watch.t
@@ -58,7 +58,7 @@ test_lei(sub {
        lei_ok qw(q mid:testmessage@example.com -o), $md2, '-I', "$ro_home/t1";
        my @f2 = glob("$md2/*/*");
        is(scalar(@f2), 1, 'got one result');
        lei_ok qw(q mid:testmessage@example.com -o), $md2, '-I', "$ro_home/t1";
        my @f2 = glob("$md2/*/*");
        is(scalar(@f2), 1, 'got one result');

-       like($f2[0], qr/S\z/, 'seen set from rename');
+       like($f2[0], qr/S\z/, 'seen set from rename') or diag explain(\@f2);

        my $e2 = eml_load($f2[0]);
        my $e1 = eml_load("$f[0]S");
        is_deeply($e2, $e1, 'results match');
        my $e2 = eml_load($f2[0]);
        my $e1 = eml_load("$f[0]S");
        is_deeply($e2, $e1, 'results match');