perl/t/version/dump.t

   1 # <major>.<minor>[.<subminor>][pl<patchlevel>]]<tail>
   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' => ".(3 * 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 dump`;
  20   my $got = eval $returned || $returned;
  21
  22   is_deeply($got,$expected,$test);
  23
  24   my $id = `echo $test | perl version.pl id`;
  25   chomp $id;
  26   is $id, $expected->{id}, $test.'->{id}';
  27
  28   my $xid = `echo $test | perl version.pl xid`;
  29   chomp $xid;
  30   is $xid, $expected->{xid}, $test.'->{xid}';
  31 }
  32 __DATA__
  33 1234