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