t/cpanel.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Test::More;
   4 use JSON::MaybeXS;
   5
   6 unless ( eval { require Cpanel::JSON::XS; 1 } ) {
   7     plan skip_all => 'No Cpanel::JSON::XS';
   8 }
   9
  10 diag 'Using Cpanel::JSON::XS ', Cpanel::JSON::XS->VERSION;
  11
  12 is( JSON, 'Cpanel::JSON::XS', 'Correct JSON class' );
  13
  14 is( \&encode_json,
  15     \&Cpanel::JSON::XS::encode_json,
  16     'Correct encode_json function'
  17 );
  18
  19 is( \&decode_json,
  20     \&Cpanel::JSON::XS::decode_json,
  21     'Correct encode_json function'
  22 );
  23
  24 require 't/lib/is_bool.pm';
  25
  26 done_testing;