fix test failure with JSON::XS 2.x (RT#132578)

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

diff --git a/t/preload_xs.t b/t/preload_xs.t
index f5c94b6..539b524 100644 (file)
--- a/t/preload_xs.t
+++ b/t/preload_xs.t
@@ -1,14 +1,17 @@
 use strict;
-use warnings FATAL => 'all';
-use if !eval { require JSON::XS; 1; }, 'Test::More', skip_all => 'No JSON::XS';
-use Test::More;
+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';
+require './t/lib/is_bool.pm';
 
 done_testing;