X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F01-deps.t;fp=t%2F01-deps.t;h=08593327803eac919d1959f6811793f2e69b4aa1;hb=ce944712f5232aac857a6a435f27d5e954617d53;hp=0000000000000000000000000000000000000000;hpb=2a21a426b896eca2c5be843f178467d4409b969c;p=perl%2Fmodules%2FTask-Devel-Cover-Recommended.git

diff --git a/t/01-deps.t b/t/01-deps.t
new file mode 100644
index 0000000..0859332
--- /dev/null
+++ b/t/01-deps.t
@@ -0,0 +1,35 @@
+#!perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+my $TESTED_PREREQS = {
+ 'Browser::Open'               => '0',
+ 'Digest::MD5'                 => '0',
+ 'JSON::PP'                    => '0',
+ 'PPI::HTML'                   => '1.07',
+ 'Parallel::Iterator'          => '0',
+ 'Pod::Coverage'               => '0.06',
+ 'Pod::Coverage::CountParents' => '0',
+ 'Storable'                    => '0',
+ 'Template'                    => '2.00',
+};
+
+plan tests => keys(%$TESTED_PREREQS) + 1;
+
+my @tests = map [ $_ => $TESTED_PREREQS->{$_} ], keys %$TESTED_PREREQS;
+push @tests, [ 'Devel::Cover' => '0.93' ];
+
+for my $test (@tests) {
+ my ($module, $version) = @$test;
+ local $@;
+ if ($version && $version !~ /^[0._]*$/) {
+  eval "use $module $version ()";
+  is $@, '', "$module v$version is available";
+ } else {
+  eval "use $module ()";
+  is $@, '', "any version of $module is available";
+ }
+}