Commit | Line | Data |
---|---|---|
3be1e192 | 1 | use strict; |
4e1fb2f8 | 2 | use warnings; |
16205c4a | 3 | |
b4d74169 | 4 | # hide Cpanel::JSON::XS |
5 | use lib map { | |
7c484eb9 | 6 | my $m = $_; |
7 | sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" }; | |
b4d74169 | 8 | } qw{Cpanel/JSON/XS.pm}; |
9 | ||
2c67ae64 | 10 | use Test::More 0.88; |
3be1e192 | 11 | use JSON::MaybeXS; |
12 | ||
16205c4a | 13 | unless ( eval { require JSON::XS; 1 } ) { |
a3dc87a6 | 14 | plan skip_all => 'No JSON::XS'; |
16205c4a | 15 | } |
3be1e192 | 16 | |
0b694b31 | 17 | diag 'Using JSON::XS ', JSON::XS->VERSION; |
18 | ||
16205c4a | 19 | is( JSON, 'JSON::XS', 'Correct JSON class' ); |
3be1e192 | 20 | |
16205c4a | 21 | is( \&encode_json, \&JSON::XS::encode_json, 'Correct encode_json function' ); |
22 | is( \&decode_json, \&JSON::XS::decode_json, 'Correct encode_json function' ); | |
3be1e192 | 23 | |
9c4f62de | 24 | require './t/lib/is_bool.pm'; |
1ca3b561 | 25 | |
3be1e192 | 26 | done_testing; |