use strict;
use warnings;
use Test::More;
require Dancer2::Serializer::JSON;
my @tests = (
{ entity => { a => 1, b => 2, },
options => { pretty => 1 },
},
{ entity =>
{ c => [ { d => 3, e => { f => 4, g => 'word', } } ], h => 6 },
options => { pretty => 1 },
}
);
for my $test (@tests) {
my $actual =
Dancer2::Serializer::JSON::to_json( $test->{entity}, $test->{options} );
my $expected = JSON::to_json( $test->{entity}, $test->{options} );
is( $actual, $expected );
}
use Dancer2::Core::Response;
my $resp = Dancer2::Core::Response->new(
content => '---',
serializer => Dancer2::Serializer::JSON->new(),
);
$resp->serialize();
done_testing();