t/01-deps.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 my $TESTED_PREREQS = {
   9  'Browser::Open'               => '0',
  10  'Digest::MD5'                 => '0',
  11  'JSON::PP'                    => '0',
  12  'PPI::HTML'                   => '1.07',
  13  'Parallel::Iterator'          => '0',
  14  'Pod::Coverage'               => '0.06',
  15  'Pod::Coverage::CountParents' => '0',
  16  'Storable'                    => '0',
  17  'Template'                    => '2.00',
  18 };
  19
  20 plan tests => keys(%$TESTED_PREREQS) + 1;
  21
  22 my @tests = map [ $_ => $TESTED_PREREQS->{$_} ], keys %$TESTED_PREREQS;
  23 push @tests, [ 'Devel::Cover' => '1.07' ];
  24
  25 for my $test (@tests) {
  26  my ($module, $version) = @$test;
  27  local $@;
  28  if ($version && $version !~ /^[0._]*$/) {
  29   eval "use $module $version ()";
  30   is $@, '', "$module v$version is available";
  31  } else {
  32   eval "use $module ()";
  33   is $@, '', "any version of $module is available";
  34  }
  35 }