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
}
# 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;
# 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");