Blame t/x17_strange_overload.t

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