From ea25e624b5ae85d01dd6f4d8ba612bf01487623e Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 23 Jun 2014 15:37:48 +0200
Subject: [PATCH] CSV-Helfer-Test: In-Memory-Streams mit richtigem Encoding
 initlisieren

---
 t/helper/csv.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/helper/csv.t b/t/helper/csv.t
index 3a8556cfd..bab3825df 100644
--- a/t/helper/csv.t
+++ b/t/helper/csv.t
@@ -552,7 +552,7 @@ ok !$csv->_check_multiplexed, 'multiplex check detects empty header';
 #####
 
 $csv = SL::Helper::Csv->new(
-  file   => \<<EOL,
+  file   => \ Encode::encode('utf-8', <<EOL),
 description;longdescription;datatype
 name;customernumber;datatype
 Kaffee;"lecker Kaffee";P
@@ -580,7 +580,7 @@ is_deeply $csv->get_data, [ { datatype => 'P', description => 'Kaffee', longdesc
 #####
 
 $csv = SL::Helper::Csv->new(
-  file   => \<<EOL,
+  file   => \ Encode::encode('utf-8', <<EOL),
 datatype;description;longdescription
 name;datatype;customernumber
 P;Kaffee;"lecker Kaffee"
-- 
2.20.1