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  'Capture::Tiny'               => '0',
  11  'Class::XSAccessor'           => '0',
  12  'Digest::MD5'                 => '0',
  13  'JSON::PP'                    => '0',
  14  'Moo'                         => '0',
  15  'PPI::HTML'                   => '1.07',
  16  'Parallel::Iterator'          => '0',
  17  'Pod::Coverage'               => '0.06',
  18  'Pod::Coverage::CountParents' => '0',
  19  'Storable'                    => '0',
  20  'Template'                    => '2.00',
  21  'namespace::clean'            => '0',
  22 };
  23
  24 plan tests => keys(%$TESTED_PREREQS) + 1;
  25
  26 my @tests = map [ $_ => $TESTED_PREREQS->{$_} ], keys %$TESTED_PREREQS;
  27 push @tests, [ 'Devel::Cover' => '1.20' ];
  28
  29 for my $test (@tests) {
  30  my ($module, $version) = @$test;
  31  local $@;
  32  if ($version && $version !~ /^[0._]*$/) {
  33   eval "use $module $version ()";
  34   is $@, '', "$module v$version is available";
  35  } else {
  36   eval "use $module ()";
  37   is $@, '', "any version of $module is available";
  38  }
  39 }