Merge branch 'b-3.6.1' into mebil
[kivitendo-erp.git] / t / pay_posting_import / datev_import.t
index 0afff35..91934de 100644 (file)
@@ -18,7 +18,7 @@ Support::TestSetup::login();
 my $dbh = SL::DB->client->dbh;
 my @charts = qw(379000 136900 372000 372500 373000 374000 377000 494700);
 local $::locale = Locale->new('en');
-diag("init csv");
+note("init csv");
 clear_up();
 
 # datev naming convention and expected filename entry in $::form
@@ -50,6 +50,23 @@ foreach my $accno (@charts) {
 }
 
 # and add department (KOST1 description)
+  SL::DB::Department->new(
+    description => 'Total falsche Abteilung, niemals zuordnen!'
+  )->save;
+
+  SL::DB::Department->new(
+    description => '2. Total falsche Abteilung, niemals zuordnen!'
+  )->save;
+
+  SL::DB::Department->new(
+    description => '3. Total falsche Abteilung, niemals zuordnen!'
+  )->save;
+
+  SL::DB::Department->new(
+    description => 'annahme stelle. Total falsche Abteilung, niemals zuordnen!'
+  )->save;
+
+
   SL::DB::Department->new(
     description => 'Wisavis'
   )->save;
@@ -73,7 +90,14 @@ foreach my $booking (@{ $gl_bookings }) {
 
   # gl
   is ($current_row->[13], $booking->reference, "Buchungstext correct");
-  is ("Wisavis", $booking->department->description, "Department correctly assigned");
+  if ($current_row->[36] eq 'wisavis') {
+    is(ref $booking->department eq 'SL::DB::Department', 1, "Department assigned");
+    is ($current_row->[36], 'wisavis', "Department correctly assigned");                # lowercase
+    is ('Wisavis', $booking->department->description, "Department correctly assigned"); # upper case
+  } else {
+    is ($current_row->[36], '', "No Department correctly assigned");
+
+  }
   is ($source, $booking->transactions->[0]->source, "Source 0 correctly assigned");
   is ($source, $booking->transactions->[1]->source, "Source 1 correctly assigned");