From 1f1dcc319ac7174eb8ac0c21e6081a1fca228948 Mon Sep 17 00:00:00 2001
From: Victor Seva <vseva@sipwise.com>
Date: Tue, 17 Nov 2015 14:37:15 +0100
Subject: [PATCH] MT#12927 fix tests adding missing charset

Change-Id: I22d3390d6af47d9c0b8c94f05859695852182283
---
 t/headers.t | 2 +-
 t/profile.t | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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' => '<http://example.com/a-resource>; rel=self',
     'Link' => '<http://example.com/docs>; rel=profile',
     'Link' => '</a-foo-thing>; 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;