X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9e99dce5b45847d3ebed445a277aa37ba6798173..c60cb1f08f:/t/datev/datev_format_2018.t

diff --git a/t/datev/datev_format_2018.t b/t/datev/datev_format_2018.t
index 9857e0709..3660b28fd 100644
--- 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;
-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');
 
 
@@ -90,7 +90,7 @@ $datev3->generate_datev_lines;
 $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');
 
 
@@ -180,6 +180,7 @@ clear_up();
 
 sub clear_up {
   SL::DB::Manager::AccTransaction->delete_all( all => 1);
+  SL::DB::Manager::GLTransaction->delete_all(  all => 1);
   SL::DB::Manager::InvoiceItem->delete_all(    all => 1);
   SL::DB::Manager::Invoice->delete_all(        all => 1);
   SL::DB::Manager::Customer->delete_all(       all => 1);