t/01-deps.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   7
   8 my $TESTED_PREREQS = {
   9  'B::Debug'                    => '0',
  10  'Browser::Open'               => '0',
  11  'Capture::Tiny'               => '0',
  12  'Class::XSAccessor'           => '0',
  13  'Digest::MD5'                 => '0',
  14  'HTML::Entities'              => '3.69',
  15  'HTML::Parser'                => '0',
  16  'JSON::MaybeXS'               => '1.003003',
  17  'Moo'                         => '0',
  18  'PPI::HTML'                   => '1.07',
  19  'Parallel::Iterator'          => '0',
  20  'Pod::Coverage'               => '0.06',
  21  'Pod::Coverage::CountParents' => '0',
  22  'Sereal::Decoder'             => '0',
  23  'Sereal::Encoder'             => '0',
  24  'Storable'                    => '0',
  25  'Template'                    => '2.00',
  26  'namespace::clean'            => '0',
  27 };
  28
  29 plan tests => keys(%$TESTED_PREREQS) + 1;
  30
  31 my @tests = map [ $_ => $TESTED_PREREQS->{$_} ], keys %$TESTED_PREREQS;
  32 push @tests, [ 'Devel::Cover' => '1.29' ];
  33
  34 for my $test (@tests) {
  35  my ($module, $version) = @$test;
  36  local $@;
  37  if ($version && $version !~ /^[0._]*$/) {
  38   eval "use $module $version ()";
  39   is $@, '', "$module v$version is available";
  40  } else {
  41   eval "use $module ()";
  42   is $@, '', "any version of $module is available";
  43  }
  44 }