From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 23 Jun 2014 13:37:48 +0000 (+0200)
Subject: CSV-Helfer-Test: In-Memory-Streams mit richtigem Encoding initlisieren
X-Git-Tag: release-3.2.0beta~411^2~24
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/ea25e624b5ae85d01dd6f4d8ba612bf01487623e?ds=inline

CSV-Helfer-Test: In-Memory-Streams mit richtigem Encoding initlisieren
---

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"