From a09f678d8254064af7ca6dcfb3c3f84b5ae37b51 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Sun, 22 Dec 2019 22:17:37 +0000 Subject: testcommon: add require_mods method and use it This cuts down on lines of code in individual test cases and fixes some misnamed error messages by using "$0" consistently. This will also provide us with a method of swapping out dependencies which provide equivalent functionality (e.g "Xapian" SWIG can replace "Search::Xapian" XS bindings). --- xt/git-http-backend.t | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'xt/git-http-backend.t') diff --git a/xt/git-http-backend.t b/xt/git-http-backend.t index 5f96369f..421c6316 100644 --- a/xt/git-http-backend.t +++ b/xt/git-http-backend.t @@ -11,12 +11,8 @@ use PublicInbox::TestCommon; my $git_dir = $ENV{GIANT_GIT_DIR}; plan 'skip_all' => 'GIANT_GIT_DIR not defined' unless $git_dir; -foreach my $mod (qw(BSD::Resource - Plack::Util Plack::Builder - HTTP::Date HTTP::Status Net::HTTP)) { - eval "require $mod"; - plan skip_all => "$mod missing for git-http-backend.t" if $@; -} +require_mods(qw(BSD::Resource Plack::Util Plack::Builder + HTTP::Date HTTP::Status Net::HTTP)); my $psgi = "./t/git-http-backend.psgi"; my ($tmpdir, $for_destroy) = tmpdir(); my $err = "$tmpdir/stderr.log"; -- cgit v1.2.3-24-ge0c7