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
   7 my @MODULES = (
   8   'YAML::XS',
   9   'version::input',
  10   'JSON',
  11 );
  12
  13 use Test::More;
  14
  15 # Load the testing modules
  16 foreach my $MODULE ( @MODULES ) {
  17   eval "use $MODULE";
  18   if ( $@ ) {
  19     plan( skip_all => "$MODULE not available for testing" );
  20   }
  21 }
  22
  23
  24 our %test = load(
  25   'all'
  26 );
  27
  28
  29 use Test::More;
  30 plan( tests => scalar keys %test );
  31
  32
  33 for my $test ( sort keys %test ){
  34   my $expected = $test{$test};
  35   my $returned = `echo $test | perl version.pl json`;
  36   my $got = from_json( $returned) || $returned;
  37
  38   is_deeply($got,$expected,$test);
  39 }
  40 __END__
  41 {
  42    "rc" : 10,
  43    "subminor" : 99,
  44    "minor" : 5,
  45    "mangled" : "2.05.99.100",
  46    "patchlevel" : 100,
  47    "id" : 33907556,
  48    "xid" : "0x02056364",
  49    "major" : 2
  50 }