Blame t/e00_func.t

Packit Service 185204
Packit Service 185204
use Test::More;
Packit Service 185204
use strict;
Packit Service 185204
BEGIN { plan tests => 2 };
Packit Service 185204
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
Packit Service 185204
use JSON;
Packit Service 185204
#########################
Packit Service 185204
Packit Service 185204
my $json = JSON->new;
Packit Service 185204
Packit Service 185204
my $js = 'abc';
Packit Service 185204
Packit Service 185204
Packit Service 185204
is(to_json($js, {allow_nonref => 1}), '"abc"');
Packit Service 185204
Packit Service 185204
is(from_json('"abc"', {allow_nonref => 1}), 'abc');
Packit Service 185204