[p5sagit/JSON-MaybeXS.git] / t / preload_cpanel.t

use strict;
use warnings FATAL => 'all';
use if !eval { require Cpanel::JSON::XS; 1; }, 'Test::More', skip_all => 'No Cpanel::JSON::XS';
use Test::More;
use JSON::MaybeXS;

is(JSON, 'Cpanel::JSON::XS', 'Correct JSON class');

is(
  \&encode_json, \&Cpanel::JSON::XS::encode_json,
  'Correct encode_json function'
);

is(
  \&decode_json, \&Cpanel::JSON::XS::decode_json,
  'Correct encode_json function'
);

done_testing;
Commit	Line	Data
16205c4a	1	use strict;
16205c4a	2	use warnings FATAL => 'all';
b461f143	3	use if !eval { require Cpanel::JSON::XS; 1; }, 'Test::More', skip_all => 'No Cpanel::JSON::XS';
16205c4a	4	use Test::More;
	5	use JSON::MaybeXS;
	6
	7	is(JSON, 'Cpanel::JSON::XS', 'Correct JSON class');
	8
	9	is(
	10	\&encode_json, \&Cpanel::JSON::XS::encode_json,
	11	'Correct encode_json function'
	12	);
	13
	14	is(
	15	\&decode_json, \&Cpanel::JSON::XS::decode_json,
	16	'Correct encode_json function'
	17	);
	18
	19	done_testing;