]> Sergey Matveev's repositories - public-inbox.git/commitdiff
t/lei-mirror: skip lei comparisons if lei missing
authorEric Wong <e@80x24.org>
Mon, 22 Nov 2021 07:42:41 +0000 (07:42 +0000)
committerEric Wong <e@80x24.org>
Mon, 22 Nov 2021 21:36:50 +0000 (21:36 +0000)
We can't compare created_at times with lei if lei tests are
skipped due to Inline::C or Socket::MsgHdr unavailability.

Reported-by: Jörg Rödel <joro@8bytes.org>
Link: https://public-inbox.org/meta/YZebmAxlFJy4lqAw@8bytes.org/
t/lei-mirror.t

index 646ff2b19f98e08a96f145de823fb13f0df212a0..32a5b03907147354f11bdd49d05a498f6f2bbd08 100644 (file)
@@ -170,12 +170,18 @@ SKIP: {
        local $ENV{HOME} = $tmpdir;
        ok(run_script([qw(-index -Lbasic), "$d/t1"]), 'index v1');
        ok(run_script([qw(-index -Lbasic), "$d/t2"]), 'index v2');
        local $ENV{HOME} = $tmpdir;
        ok(run_script([qw(-index -Lbasic), "$d/t1"]), 'index v1');
        ok(run_script([qw(-index -Lbasic), "$d/t2"]), 'index v2');
-       my $f = "$d/t1/public-inbox/msgmap.sqlite3";
-       my $ca = PublicInbox::Msgmap->new_file($f)->created_at;
-       is($ca, $created{v1}, 'clone + index v1 synced ->created_at');
-       $f = "$d/t2/msgmap.sqlite3";
-       $ca = PublicInbox::Msgmap->new_file($f)->created_at;
-       is($ca, $created{v2}, 'clone + index v1 synced ->created_at');
+
+       SKIP: {
+               join('', sort(keys %created)) eq 'v1v2' or
+                       skip "lei didn't run", 2;
+               my $f = "$d/t1/public-inbox/msgmap.sqlite3";
+               my $ca = PublicInbox::Msgmap->new_file($f)->created_at;
+               is($ca, $created{v1}, 'clone + index v1 synced ->created_at');
+
+               $f = "$d/t2/msgmap.sqlite3";
+               $ca = PublicInbox::Msgmap->new_file($f)->created_at;
+               is($ca, $created{v2}, 'clone + index v2 synced ->created_at');
+       }
        test_lei(sub {
                lei_ok qw(inspect num:1 --dir), "$d/t1";
                ok(ref(json_utf8->decode($lei_out)), 'inspect num: on v1');
        test_lei(sub {
                lei_ok qw(inspect num:1 --dir), "$d/t1";
                ok(ref(json_utf8->decode($lei_out)), 'inspect num: on v1');