X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8317b7aa1407238c9fa8d609a1795b4ee20cb2dd..2b01bfef4afb04fe2b2f0e7e1e79bffe5e38b281:/t/000setup_database.t

diff --git a/t/000setup_database.t b/t/000setup_database.t
index b4ebd13e7..5cf6a2892 100755
--- 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'};
 }
 
@@ -177,7 +179,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;