Revision dac8a136
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| t/Support/TestSetup.pm | ||
|---|---|---|
|
use SL::Locale;
|
||
|
use SL::LXDebug;
|
||
|
use Data::Dumper;
|
||
|
use SL::Layout::None;
|
||
|
use SL::LxOfficeConf;
|
||
|
use SL::InstanceConfiguration;
|
||
|
use SL::Request;
|
||
|
|
||
|
sub _login {
|
||
|
my $login = shift;
|
||
| ... | ... | |
|
$::form = Form->new;
|
||
|
$::auth = SL::Auth->new;
|
||
|
$::instance_conf = SL::InstanceConfiguration->new;
|
||
|
$::request = { cgi => CGI->new({}) };
|
||
|
$::request = SL::Request->new( cgi => CGI->new({}), layout => SL::Layout::None->new );
|
||
|
|
||
|
die 'cannot reach auth db' unless $::auth->session_tables_present;
|
||
|
|
||
| t/controllers/base/render.t | ||
|---|---|---|
|
sub reset_test_env {
|
||
|
$ENV{HTTP_USER_AGENT} = 'Perl Tests';
|
||
|
|
||
|
$::request = {
|
||
|
$::request = SL::Request->new(
|
||
|
cgi => CGI->new({}),
|
||
|
layout => SL::Layout::Javascript->new,
|
||
|
};
|
||
|
);
|
||
|
|
||
|
$::myconfig{menustyle} = 'javascript';
|
||
|
|
||
Auch abrufbar als: Unified diff
TestSetup: $::request muss eine Instanz von SL::Request sein