From 57a135c92ac33f792d138fcdbeb72e8ad5f37670 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Oct 2009 13:15:12 -0400 Subject: [PATCH] abort test if cvs prereq perl modules are not available --- t/cvs.t | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/t/cvs.t b/t/cvs.t index c9caa94eb..2808973be 100755 --- a/t/cvs.t +++ b/t/cvs.t @@ -13,6 +13,14 @@ BEGIN { use Test::More skip_all => "cvs or cvsps not available or could not make test dir" } } + foreach my $module ('File::ReadBackwards', 'File::MimeInfo') { + eval qq{use $module}; + if ($@) { + eval qq{ + use Test::More skip_all => "$module not available" + } + } + } } use Test::More tests => 12;