mirror of https://github.com/sipwise/data-hal.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
1001 B
24 lines
1001 B
use strictures;
|
|
use Test::More import => [qw(done_testing is_deeply)];
|
|
use Data::HAL qw();
|
|
|
|
my $hal = Data::HAL->new(
|
|
links => [
|
|
Data::HAL::Link->new(relation => 'self', href => 'http://example.com/a-resource'),
|
|
Data::HAL::Link->new(relation => 'profile', href => 'http://example.com/docs'),
|
|
Data::HAL::Link->new(relation => 'curies', name => 'example', href => 'http://example.com/rel#{rel}', templated => 1),
|
|
Data::HAL::Link->new(relation => 'example:foo', href => '/a-foo-thing'),
|
|
Data::HAL::Link->new(relation => 'example:bar', href => '/some-bar'),
|
|
],
|
|
);
|
|
|
|
is_deeply [$hal->http_headers], [
|
|
'Content-Type' => 'application/hal+json; profile="http://example.com/docs"; charset=utf-8',
|
|
'Link' => '<http://example.com/a-resource>; rel=self',
|
|
'Link' => '<http://example.com/docs>; rel=profile',
|
|
'Link' => '</a-foo-thing>; rel="http://example.com/rel#foo"',
|
|
'Link' => '</some-bar>; rel="http://example.com/rel#bar"',
|
|
];
|
|
|
|
done_testing;
|