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 use version::input;
   7
   8 our %test = load(
   9   'all'
  10 );
  11
  12 use Test::More;
  13 plan( tests => scalar keys %test );
  14
  15
  16 for my $test ( sort keys %test ){
  17   my $expected = $test{$test};
  18   my $returned = `echo $test | perl version.pl perl`;
  19   my $got = eval $returned || $returned;
  20
  21   is_deeply($got,$expected,$test);
  22 }
  23 __END__
  24 {
  25   'rc' => 10,
  26   'subminor' => 99,
  27   'minor' => 5,
  28   'mangled' => '2.05.99.100',
  29   'patchlevel' => 100,
  30   'id' => 33907556,
  31   'xid' => '0x02056364',
  32   'major' => 2
  33 }