X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/8317b7aa1407238c9fa8d609a1795b4ee20cb2dd..e214accccd89a9c8:/t/Support/TestSetup.pm?ds=inline diff --git a/t/Support/TestSetup.pm b/t/Support/TestSetup.pm index f7b43cd0d..7e5774ea1 100644 --- a/t/Support/TestSetup.pm +++ b/t/Support/TestSetup.pm @@ -16,6 +16,9 @@ use SL::InstanceConfiguration; use SL::Request; sub login { + $Data::Dumper::Sortkeys = 1; + $Data::Dumper::Indent = 2; + SL::LxOfficeConf->read; my $client = 'Unit-Tests'; @@ -27,7 +30,7 @@ sub login { $::lxdebug->disable_sub_tracing; $::locale = Locale->new($::lx_office_conf{system}->{language}); $::form = Form->new; - $::auth = SL::Auth->new; + $::auth = SL::Auth->new(unit_tests_database => 1); die "Cannot find client with ID or name '$client'" if !$::auth->set_client($client); $::instance_conf = SL::InstanceConfiguration->new; @@ -45,8 +48,6 @@ sub login { die "cannot find locale for user $login" unless $::locale = Locale->new($::myconfig{countrycode}); - $::instance_conf->init; - $SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die}; return 1;