testcommon: add require_mods method and use it

[public-inbox.git] / t / init.t

diff --git a/t/init.t b/t/init.t
index 165508683690cd5b717b360baec8e14fc625a788..786add137cd47b27fe8641038fbc413c242e8a00 100644 (file)
--- a/t/init.t
+++ b/t/init.t
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use Test::More;
 use PublicInbox::Config;
-require './t/common.perl';
+use PublicInbox::TestCommon;
 use File::Basename;
 my ($tmpdir, $for_destroy) = tmpdir();
 sub quiet_fail {
@@ -50,10 +50,7 @@ sub quiet_fail {
 }
 
 SKIP: {
-       foreach my $mod (qw(DBD::SQLite Search::Xapian::WritableDatabase)) {
-               eval "require $mod";
-               skip "$mod missing for v2", 2 if $@;
-       }
+       require_mods(qw(DBD::SQLite Search::Xapian::WritableDatabase), 2);
        require_git(2.6, 1) or skip "git 2.6+ required", 2;
        local $ENV{PI_DIR} = "$tmpdir/.public-inbox/";
        my $cfgfile = "$ENV{PI_DIR}/config";