From: Amitai Schlair <schmonz-web-ikiwiki@schmonz.com>
Date: Sun, 22 Jan 2012 16:07:58 +0000 (-0500)
Subject: Define required programs and modules at top for easy spotting.
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=ad0e56cdcaaf76bc68d1b5c56e6845307b51c44a;p=ikiwiki.git

Define required programs and modules at top for easy spotting.
---

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