abort test if cvs prereq perl modules are not available
authorJoey Hess <joey@gnu.kitenet.net>
Wed, 14 Oct 2009 17:15:12 +0000 (13:15 -0400)
committerJoey Hess <joey@gnu.kitenet.net>
Wed, 14 Oct 2009 17:15:12 +0000 (13:15 -0400)
t/cvs.t

diff --git a/t/cvs.t b/t/cvs.t
index c9caa94eb308041e0b78ff4d9eddfe86cb331f65..2808973be55a1819c65d2178cab3cf5e76841872 100755 (executable)
--- 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;