89 lines
1.8 KiB
Perl
89 lines
1.8 KiB
Perl
use 5.32.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Dancer2::Plugin::JsonApi::Registry;
|
|
|
|
use experimental qw/ signatures /;
|
|
|
|
# example taken straight from https://www.npmjs.com/package/json-api-serializer
|
|
|
|
my $data = [
|
|
{
|
|
id=> "1",
|
|
title=> "JSON API paints my bikeshed!",
|
|
body=> "The shortest article. Ever.",
|
|
created=> "2015-05-22T14:56:29.000Z",
|
|
updated=> "2015-05-22T14:56:28.000Z",
|
|
author=> {
|
|
id=> "1",
|
|
firstName=> "Kaley",
|
|
lastName=> "Maggio",
|
|
email=> "Kaley-Maggio\@example.com",
|
|
age=> "80",
|
|
gender=> "male"
|
|
},
|
|
tags=> ["1", "2"],
|
|
photos=> [
|
|
"ed70cf44-9a34-4878-84e6-0c0e4a450cfe",
|
|
"24ba3666-a593-498c-9f5d-55a4ee08c72e",
|
|
"f386492d-df61-4573-b4e3-54f6f5d08acf"
|
|
],
|
|
comments=> [
|
|
{
|
|
_id=> "1",
|
|
body=> "First !",
|
|
created=> "2015-08-14T18:42:16.475Z"
|
|
},
|
|
{
|
|
_id=> "2",
|
|
body=> "I Like !",
|
|
created=> "2015-09-14T18:42:12.475Z"
|
|
},
|
|
{
|
|
_id=> "3",
|
|
body=> "Awesome",
|
|
created=> "2015-09-15T18:42:12.475Z"
|
|
}
|
|
]
|
|
}
|
|
];
|
|
|
|
my $registry = Dancer2::Plugin::JsonApi::Registry->new;
|
|
|
|
$registry->add_type(
|
|
'article', {
|
|
top_level_meta => sub($data,$xtra) {
|
|
return +{
|
|
count => $xtra->{count},
|
|
total => 0+ @$data,
|
|
}
|
|
},
|
|
top_level_links => {
|
|
self => '/articles',
|
|
},
|
|
links => {
|
|
self => sub($data,@) {
|
|
return "/articles/" . $data->{id};
|
|
},
|
|
}
|
|
}
|
|
);
|
|
|
|
my $output = $registry->serialize('article', $data, { count => 2 } );
|
|
|
|
like $output => {
|
|
"jsonapi"=> {
|
|
"version"=> "1.0"
|
|
},
|
|
"meta"=> {
|
|
"count"=> 2,
|
|
"total"=> 1
|
|
},
|
|
"links"=> {
|
|
"self"=> "/articles"
|
|
},
|
|
};
|
|
|
|
done_testing();
|