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