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 |
|
Auch abrufbar als: Unified diff
TestSetup: $::request muss eine Instanz von SL::Request sein