Warnings

diff --git a/t/datev/datev_format_2018.t b/t/datev/datev_format_2018.t
index fb66dafb4f0473f021e184ab2739cec80b2058d2..3660b28fde3feaf0712e2ceeeb4b82516ca88ca3 100644 (file)
--- a/t/datev/datev_format_2018.t
+++ b/t/datev/datev_format_2018.t
@@ -70,7 +70,7 @@ $datev1->from($startdate);
 $datev1->to($enddate);
 $datev1->csv_buchungsexport();
 my @warnings = $datev1->warnings;
 $datev1->to($enddate);
 $datev1->csv_buchungsexport();
 my @warnings = $datev1->warnings;

-is(@warnings[0]->[0]->{untranslated},
+is($warnings[0]->[0]->{untranslated},

   'Wrong field value \'#1\' for field \'#2\' for the transaction with amount \'#3\'', 'wrong_encoding');
 
 
   'Wrong field value \'#1\' for field \'#2\' for the transaction with amount \'#3\'', 'wrong_encoding');
 
 


@@ -90,7 +90,7 @@ $datev3->generate_datev_lines;
 $datev3->csv_buchungsexport;
 @warnings = [];
 @warnings = $datev3->warnings;
 $datev3->csv_buchungsexport;
 @warnings = [];
 @warnings = $datev3->warnings;

-is(@warnings[0]->[0]->{untranslated},
+is($warnings[0]->[0]->{untranslated},

   'Wrong field value \'#1\' for field \'#2\' for the transaction with amount \'#3\'', 'mixed_wrong_encoding');
 
 
   'Wrong field value \'#1\' for field \'#2\' for the transaction with amount \'#3\'', 'mixed_wrong_encoding');