MT#12927 fix tests adding missing charset

Change-Id: I22d3390d6af47d9c0b8c94f05859695852182283
changes/80/3380/1
Victor Seva 11 years ago
parent ac5f0bf5f7
commit 1f1dcc319a

@ -13,7 +13,7 @@ my $hal = Data::HAL->new(
);
is_deeply [$hal->http_headers], [
'Content-Type' => 'application/hal+json; profile="http://example.com/docs"',
'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"',

@ -4,5 +4,5 @@ use File::Slurp qw(read_file);
use Test::More import => [qw(done_testing is)];
is {Data::HAL->from_json(scalar read_file 't/example4.json')->http_headers}->{'Content-Type'},
'application/hal+json; profile="http://example.com/shop/documentation"';
'application/hal+json; profile="http://example.com/shop/documentation"; charset=utf-8';
done_testing;

Loading…
Cancel
Save