urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Define required programs and modules at top for easy spotting.

master
Amitai Schlair 2012-01-22 11:07:58 -05:00
parent c74571c758
commit ad0e56cdca
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
t/cvs.t
View File

@ -5,6 +5,17 @@ use Test::More; my $total_tests = 9;
use IkiWiki;
my $default_test_methods = '^test_*';
my @required_programs = qw(
cvs
cvsps
);
my @required_modules = qw(
File::chdir
File::MimeInfo
Date::Parse
File::Temp
File::ReadBackwards
);
my $dir = "/tmp/ikiwiki-test-cvs.$$";
# TESTS FOR GENERAL META-BEHAVIOR
@ -336,23 +347,14 @@ main();
sub _plan_for_test_more {
my $can_plan = shift;
foreach my $program (qw(
cvs
cvsps
)) {
foreach my $program (@required_programs) {
my $program_path = `which $program`;
chomp $program_path;
return plan(skip_all => "$program not available")
unless -x $program_path;
}
foreach my $module (qw(
File::chdir
File::MimeInfo
Date::Parse
File::Temp
File::ReadBackwards
)) {
foreach my $module (@required_modules) {
eval qq{use $module};
return plan(skip_all => "$module not available")
if $@;