abort test if cvs prereq perl modules are not available

master
Joey Hess 2009-10-14 13:15:12 -04:00
parent ef7bddbc36
commit 57a135c92a
1 changed files with 8 additions and 0 deletions

View File

@ -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;