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