From ad0e56cdcaaf76bc68d1b5c56e6845307b51c44a Mon Sep 17 00:00:00 2001 From: Amitai Schlair Date: Sun, 22 Jan 2012 11:07:58 -0500 Subject: Define required programs and modules at top for easy spotting. --- t/cvs.t | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/t/cvs.t b/t/cvs.t index 390e9af47..bb6e3e90a 100755 --- a/t/cvs.t +++ b/t/cvs.t @@ -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 $@; -- cgit v1.2.3