Revision dac8a136
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| t/Support/TestSetup.pm | ||
|---|---|---|
| 9 | 9 |
use SL::Locale; |
| 10 | 10 |
use SL::LXDebug; |
| 11 | 11 |
use Data::Dumper; |
| 12 |
use SL::Layout::None; |
|
| 12 | 13 |
use SL::LxOfficeConf; |
| 13 | 14 |
use SL::InstanceConfiguration; |
| 15 |
use SL::Request; |
|
| 14 | 16 |
|
| 15 | 17 |
sub _login {
|
| 16 | 18 |
my $login = shift; |
| ... | ... | |
| 25 | 27 |
$::form = Form->new; |
| 26 | 28 |
$::auth = SL::Auth->new; |
| 27 | 29 |
$::instance_conf = SL::InstanceConfiguration->new; |
| 28 |
$::request = { cgi => CGI->new({}) };
|
|
| 30 |
$::request = SL::Request->new( cgi => CGI->new({}), layout => SL::Layout::None->new );
|
|
| 29 | 31 |
|
| 30 | 32 |
die 'cannot reach auth db' unless $::auth->session_tables_present; |
| 31 | 33 |
|
| t/controllers/base/render.t | ||
|---|---|---|
| 15 | 15 |
sub reset_test_env {
|
| 16 | 16 |
$ENV{HTTP_USER_AGENT} = 'Perl Tests';
|
| 17 | 17 |
|
| 18 |
$::request = {
|
|
| 18 |
$::request = SL::Request->new(
|
|
| 19 | 19 |
cgi => CGI->new({}),
|
| 20 | 20 |
layout => SL::Layout::Javascript->new, |
| 21 |
};
|
|
| 21 |
);
|
|
| 22 | 22 |
|
| 23 | 23 |
$::myconfig{menustyle} = 'javascript';
|
| 24 | 24 |
|
Auch abrufbar als: Unified diff
TestSetup: $::request muss eine Instanz von SL::Request sein