perl/t/version/json.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 use JSON;
   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 json`;
  21   my $got = from_json( $returned) || $returned;
  22
  23   is_deeply($got,$expected,$test);
  24 }
  25 __END__
  26 {
  27    "rc" : 10,
  28    "subminor" : 99,
  29    "minor" : 5,
  30    "mangled" : "2.05.99.100",
  31    "patchlevel" : 100,
  32    "id" : 33907556,
  33    "xid" : "0x02056364",
  34    "major" : 2
  35 }