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

use strict;
use warnings;

use if !eval { require JSON::XS; JSON::XS->VERSION(3.0); 1; }, 'Test::More', skip_all => 'No JSON::XS';
use Test::More 0.88;
use JSON::MaybeXS;

diag 'Using JSON::XS ', JSON::XS->VERSION;

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

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

require './t/lib/is_bool.pm';

done_testing;
Commit	Line	Data
16205c4a	1	use strict;
4e1fb2f8	2	use warnings;
0b694b31	3
bca3f2ef	4	use if !eval { require JSON::XS; JSON::XS->VERSION(3.0); 1; }, 'Test::More', skip_all => 'No JSON::XS';
2c67ae64	5	use Test::More 0.88;
16205c4a	6	use JSON::MaybeXS;
16205c4a	7
0b694b31	8	diag 'Using JSON::XS ', JSON::XS->VERSION;
0b694b31	9
16205c4a	10	is( JSON, 'JSON::XS', 'Correct JSON class' );
	11
	12	is( \&encode_json, \&JSON::XS::encode_json, 'Correct encode_json function' );
	13	is( \&decode_json, \&JSON::XS::decode_json, 'Correct encode_json function' );
	14
9c4f62de	15	require './t/lib/is_bool.pm';
1ca3b561	16
16205c4a	17	done_testing;