use strict;
use utf8;
use PLON;
my $pson = PLON->new->pretty(1)->encode([
{a => [ qw(x y z)]},
]);
is $pson, n(<<'...');
[
{
"a" => [
"x",
"y",
"z",
],
},
]
...
{
my $pson = PLON->new->pretty(1)->encode({
x => [a => [ qw(x y z)]],
});
is $pson, n(<<'...');
{
"x" => [
"a",
[
"x",
"y",
"z",
],
],
}
...
}
done_testing;
# normalize
sub n {
my $n = shift;
$n =~ s/\n\z//;
$n;
}