use SL::LXDebug;
use SL::Layout::None;
use SL::LxOfficeConf;
+use Support::TestSetup;
our ($db_cfg, $dbh);
$::lxdebug = LXDebug->new(target => LXDebug::STDERR_TARGET);
$::lxdebug->disable_sub_tracing;
$::locale = Locale->new($::lx_office_conf{system}->{language});
- $::form = Form->new;
+ $::form = Support::TestSetup->create_new_form;
$::auth = SL::Auth->new(unit_tests_database => 1);
$::locale = Locale->new('de');
$::instance_conf = SL::InstanceConfiguration->new;
SL::DBConnect->get_options,
);
- $::auth->reset;
my $dbh_template = SL::DBConnect->connect(@dbi_options) || BAIL_OUT("No database connection to the template database: " . $DBI::errstr);
my $auth_dbh = $::auth->dbconnect(1);
$auth_dbh->disconnect;
dbh_do($dbh_template, "DROP DATABASE \"" . $db_cfg->{db} . "\"", message => "Database could not be dropped");
-
- $::auth->reset;
}
dbg("Creating database");
signature => '',
hide_cvar_search_options => '',
numberformat => '1.000,00',
- vclimit => 0,
favorites => '',
copies => '',
menustyle => 'v3',
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;