X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2FSupport%2FTestSetup.pm;h=037cfb547e7b06a08e857863792776c8f6fd7f61;hb=9b377bf4f710ca994437786117ee1259b4d716d0;hp=c8095a99320c0310f382da3a22bd33c729385923;hpb=ef9698b3c0b6536298e6b6512c1d4e5d0aa48c67;p=kivitendo-erp.git diff --git a/t/Support/TestSetup.pm b/t/Support/TestSetup.pm index c8095a993..037cfb547 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'; @@ -41,12 +44,8 @@ sub login { die "cannot find user $login" unless %::myconfig = $::auth->read_user(login => $login); - $::form->{login} = $login; # normaly implicit at 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;