Revision fef4ba5a
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| t/Support/TestSetup.pm | ||
|---|---|---|
| 11 | 11 |
use Data::Dumper; |
| 12 | 12 |
use SL::LxOfficeConf; |
| 13 | 13 |
use SL::InstanceConfiguration; |
| 14 |
SL::LxOfficeConf->read; |
|
| 15 | 14 |
|
| 16 | 15 |
sub _login {
|
| 17 | 16 |
my $login = shift; |
| ... | ... | |
| 45 | 44 |
} |
| 46 | 45 |
|
| 47 | 46 |
sub login {
|
| 47 |
SL::LxOfficeConf->read; |
|
| 48 |
|
|
| 48 | 49 |
my $login = shift || $::lx_office_conf{testing}{login} || 'demo';
|
| 49 | 50 |
_login($login); |
| 50 | 51 |
} |
Auch abrufbar als: Unified diff
Warnung von Config::Std zur Compilezeit unterdrücken.