48dcf1d3c5c6534f996f45cb918d33861d13b22e
[p5sagit/JSON-MaybeXS.git] / t / preload_xs.t
1 use strict;
2 use warnings;
3
4 use Test::Needs { 'JSON::XS' => '3.0' };  # load first, before JSON::MaybeXS
5 use Test::More 0.88;
6 use JSON::MaybeXS;
7
8 diag 'Using JSON::XS ', JSON::XS->VERSION;
9
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
15 require './t/lib/is_bool.pm';
16
17 done_testing;