Blame t/e00_func.t

Packit a557cb

Packit a557cb
use Test::More;
Packit a557cb
use strict;
Packit a557cb
BEGIN { plan tests => 2 };
Packit a557cb
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
Packit a557cb
use JSON;
Packit a557cb
#########################
Packit a557cb

Packit a557cb
my $json = JSON->new;
Packit a557cb

Packit a557cb
my $js = 'abc';
Packit a557cb

Packit a557cb

Packit a557cb
is(to_json($js, {allow_nonref => 1}), '"abc"');
Packit a557cb

Packit a557cb
is(from_json('"abc"', {allow_nonref => 1}), 'abc');
Packit a557cb