Blame t/x17_strange_overload.t
|
Packit |
a557cb |
use strict;
|
|
Packit |
a557cb |
use Test::More;
|
|
Packit |
a557cb |
BEGIN { plan tests => 2 };
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
BEGIN { $ENV{PERL_JSON_BACKEND} ||= 1; }
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
SKIP: {
|
|
Packit |
a557cb |
skip "for JSON::XS 3.x. cimpatible. Please see to Changes.", 2;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
eval q{
|
|
Packit |
a557cb |
use JSON::XS;
|
|
Packit |
a557cb |
use JSON ();
|
|
Packit |
a557cb |
};
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
skip "can't use JSON::XS.", 2, if $@;
|
|
Packit |
a557cb |
skip "JSON::XS version < " . JSON->require_xs_version, 2
|
|
Packit |
a557cb |
if JSON::XS->VERSION < JSON->require_xs_version;
|
|
Packit |
a557cb |
|
|
Packit |
a557cb |
is("" . JSON::XS::true(), 'true');
|
|
Packit |
a557cb |
is("" . JSON::true(), 'true');
|
|
Packit |
a557cb |
}
|
|
Packit |
a557cb |
|