Consolidation and extended test runs

[mfinanz.git] / t / 000setup_database.t

diff --git a/t/000setup_database.t b/t/000setup_database.t
index b4ebd13e767b568269de40258cc7c13413740cef..affd477941220b6bff1b6406df97e879bcdffbb0 100755 (executable)
--- a/t/000setup_database.t
+++ b/t/000setup_database.t
@@ -10,6 +10,7 @@ use Test::More;
 use SL::Auth;
 use SL::DBConnect;
 use SL::Form;
+use SL::InstanceConfiguration;
 use SL::LXDebug;
 use SL::Layout::None;
 use SL::LxOfficeConf;
@@ -53,6 +54,7 @@ sub setup {
   $::form          = Form->new;
   $::auth          = SL::Auth->new(unit_tests_database => 1);
   $::locale        = Locale->new('de');
+  $::instance_conf = SL::InstanceConfiguration->new;
   $db_cfg          = $::lx_office_conf{'testing/database'};
 }
 
@@ -115,12 +117,17 @@ sub create_initial_schema {
   $dbh           = SL::DBConnect->connect(@dbi_options) || BAIL_OUT("Database connection failed: " . $DBI::errstr);
   $::auth->{dbh} = $dbh;
   my $dbupdater  = SL::DBUpgrade2->new(form => $::form, return_on_error => 1, silent => 1);
-  my $coa        = 'Germany-DATEV-SKR03EU';
+  my $defaults   = SL::DefaultManager->new($::lx_office_conf{system}->{default_manager});
+  my $coa        = $defaults->chart_of_accounts( 'Germany-DATEV-SKR03EU' );
+  my $am         = $defaults->accounting_method( 'cash' );
+  my $pd         = $defaults->profit_determination( 'balance' );
+  my $is         = $defaults->inventory_system( 'periodic' );
+  my $curr       = $defaults->currency( 'EUR' );
 
   apply_dbupgrade($dbupdater, "sql/lx-office.sql");
   apply_dbupgrade($dbupdater, "sql/${coa}-chart.sql");
 
-  dbh_do($dbh, qq|UPDATE defaults SET coa = '${coa}', accounting_method = 'cash', profit_determination = 'income', inventory_system = 'periodic', curr = 'EUR'|);
+  dbh_do($dbh, qq|UPDATE defaults SET coa = '${coa}', accounting_method = '${am}', profit_determination = '${pd}', inventory_system = '${is}', curr = '${curr}'|);
   dbh_do($dbh, qq|CREATE TABLE schema_info (tag TEXT, login TEXT, itime TIMESTAMP DEFAULT now(), PRIMARY KEY (tag))|);
 }
 
@@ -137,6 +144,30 @@ sub apply_upgrades {
   my @unapplied_scripts = $dbupdater->unapplied_upgrade_scripts($dbh);
 
   apply_dbupgrade($dbupdater, $_) for @unapplied_scripts;
+
+  # some dpupgrades are hardcoded for Germany and will be recovered by the same nasty code
+  if ((not defined $params{auth}) && ($::lx_office_conf{system}->{default_manager} eq "swiss")) {
+    # buchungsgruppen_sortkey.sql depends release_2_4_1
+    dbh_do($dbh, qq|UPDATE buchungsgruppen SET sortkey=1  WHERE description='Standard 8%'|);
+    dbh_do($dbh, qq|UPDATE buchungsgruppen SET sortkey=2  WHERE description='Standard 2.5%'|);
+    # steuerfilterung.pl depends release_3_0_0
+    dbh_do($dbh, qq|ALTER TABLE tax ADD chart_categories TEXT|);
+    dbh_do($dbh, qq|UPDATE tax SET chart_categories = 'I' WHERE (taxnumber='2200') OR (taxnumber='2201')|);
+    dbh_do($dbh, qq|UPDATE tax SET chart_categories = 'E' WHERE (taxnumber='1170') OR (taxnumber='1171')|);
+    dbh_do($dbh, qq|UPDATE tax SET chart_categories = 'ALQCIE' WHERE chart_categories IS NULL|);
+    dbh_do($dbh, qq|ALTER TABLE tax ALTER COLUMN chart_categories SET NOT NULL|);
+    # taxzone_id_in_oe_delivery_orders.sql depends release_3_1_0
+    dbh_do($dbh, qq|UPDATE oe SET taxzone_id = (SELECT id FROM tax_zones WHERE description = 'Schweiz') WHERE (taxzone_id = 0) OR (taxzone_id IS NULL)|);
+    dbh_do($dbh, qq|UPDATE delivery_orders SET taxzone_id = (SELECT id FROM tax_zones WHERE description = 'Schweiz') WHERE (taxzone_id = 0) OR (taxzone_id IS NULL)|);
+    dbh_do($dbh, qq|UPDATE ar SET taxzone_id = (SELECT id FROM tax_zones WHERE description = 'Schweiz') WHERE (taxzone_id = 0) OR (taxzone_id IS NULL)|);
+    dbh_do($dbh, qq|UPDATE ap SET taxzone_id = (SELECT id FROM tax_zones WHERE description = 'Schweiz') WHERE (taxzone_id = 0) OR (taxzone_id IS NULL)|);
+    # tax_skonto_automatic.sql depends release_3_2_0
+    dbh_do($dbh, qq|UPDATE tax SET skonto_purchase_chart_id = (SELECT id FROM chart WHERE accno = '4900')|);
+    dbh_do($dbh, qq|UPDATE tax SET skonto_sales_chart_id = (SELECT id FROM chart WHERE accno = '3800')|);
+    # not available
+    dbh_do($dbh, qq|UPDATE defaults SET rndgain_accno_id = (SELECT id FROM CHART WHERE accno='6953')|);
+    dbh_do($dbh, qq|UPDATE defaults SET rndloss_accno_id = (SELECT id FROM CHART WHERE accno='6943')|);
+  }
 }
 
 sub create_client_user_and_employee {
@@ -177,7 +208,7 @@ sub create_client_user_and_employee {
   dbh_do($dbh, $sth, bind => [ $_, $config{$_} ]) for sort keys %config;
   $sth->finish;
 
-  my $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
+  $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
   dbh_do($dbh, $sth, bind => [ $_ ]) for sort $::auth->all_rights;
   $sth->finish;