yanick
/
Dancer2-Plugin-JsonApi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

finalize the serializing example

releases
Yanick Champoux 2023-11-12 12:43:29 -05:00
parent ea112b2bd5
commit d758761f05
1 changed files with 86 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
t/example.t
View File

@ -64,6 +64,7 @@ $registry->add_type(
relationships => {
'tags' => { type => 'tag' },
'comments' => { type => 'comment' },
photos => { type => 'photo' },
author => {
type => "people",
links => sub ( $data, @ ) {
@ -80,16 +81,24 @@ $registry->add_type(
);
$registry->add_type('tag');
$registry->add_type('photo');
$registry->add_type( 'comment',
{ id => '_id', allowed_attributes => ['body'] } );
$registry->add_type(
'people',
{ links => sub ( $data, @ ) { '/peoples/' . $data->{id} }
{ links => sub ( $data, @ ) { +{ self => '/peoples/' . $data->{id} } }
}
);
my $output = $registry->serialize( 'article', $data, { count => 2 } );
like $output->{data}[0]{relationships}{author},
{ links => {
"self" => "/articles/1/relationships/author",
"related" => "/articles/1/author"
}
};
like $output->{data}[0]{relationships}{author},
{ links => {
"self" => "/articles/1/relationships/author",
@ -113,6 +122,16 @@ like $output => {
"created" => "2015-05-22T14:56:29.000Z"
},
"relationships" => {
"author" => {
"data" => {
"type" => "people",
"id" => "1"
},
"links" => {
"self" => "/articles/1/relationships/author",
"related" => "/articles/1/author"
}
},
"tags" => {
"data" => [
{ "type" => "tag",
@ -123,9 +142,74 @@ like $output => {
}
]
},
}
"photos" => {
"data" => [
{ "type" => "photo",
"id" => "ed70cf44-9a34-4878-84e6-0c0e4a450cfe"
},
{ "type" => "photo",
"id" => "24ba3666-a593-498c-9f5d-55a4ee08c72e"
},
{ "type" => "photo",
"id" => "f386492d-df61-4573-b4e3-54f6f5d08acf"
}
]
},
"comments" => {
"data" => [
{ "type" => "comment",
"id" => "1"
},
{ "type" => "comment",
"id" => "2"
},
{ "type" => "comment",
"id" => "3"
}
]
}
},
"links" => { "self" => "/articles/1" }
}
],
};
is $output->{included}, bag {
item($_)
for (
{ "type" => "people",
"id" => "1",
"attributes" => {
"firstName" => "Kaley",
"lastName" => "Maggio",
"email" => "Kaley-Maggio\@example.com",
"age" => "80",
"gender" => "male"
},
"links" => { "self" => "/peoples/1" },
},
{ "type" => "comment",
"id" => "1",
"attributes" => { "body" => "First !" }
},
{ "type" => "comment",
"id" => "2",
"attributes" => { "body" => "I Like !" }
},
{ "type" => "comment",
"id" => "3",
"attributes" => { "body" => "Awesome" }
}
);
};
subtest 'comments only have the body attribute' => sub {
for
my $comment ( grep { $_->{type} eq 'comment' } $output->{included}->@* )
{
my @attr = keys $comment->{attributes}->%*;
is( \@attr => ['body'], "only the body for comments" );
}
};
done_testing;