perl/t/version/perl.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use lib qw't perl/t ..';
   6
   7 my %MODULES = (
   8   'YAML::XS', 'qw[:all]',
   9   'version::input', '',
  10 );
  11
  12 use Test::More;
  13
  14 # Load the testing modules
  15 foreach my $MODULE ( keys %MODULES ) {
  16   eval "use $MODULE $MODULES{$MODULE}";
  17   if ( $@ ) {
  18     plan( skip_all => "$MODULE not available for testing" );
  19   }
  20 }
  21
  22
  23 our %test = load(
  24   'all'
  25 );
  26
  27
  28 plan( tests => scalar keys %test );
  29
  30
  31 for my $test ( sort keys %test ){
  32   my $expected = $test{$test};
  33   my $returned = `echo $test | perl version.pl perl`;
  34   my $got = eval $returned || $returned;
  35
  36   is_deeply($got,$expected,$test);
  37 }
  38 __END__
  39 {
  40   'rc' => 10,
  41   'subminor' => 99,
  42   'minor' => 5,
  43   'mangled' => '2.05.99.100',
  44   'patchlevel' => 100,
  45   'id' => 33907556,
  46   'xid' => '0x02056364',
  47   'major' => 2
  48 }