diff --git a/t/headers.t b/t/headers.t index fd3295b..524a512 100644 --- a/t/headers.t +++ b/t/headers.t @@ -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' => '; rel=self', 'Link' => '; rel=profile', 'Link' => '; rel="http://example.com/rel#foo"', diff --git a/t/profile.t b/t/profile.t index a261970..37523a6 100644 --- a/t/profile.t +++ b/t/profile.t @@ -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;