Revision db468075
Von Jan Büren vor etwa 8 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest.pm | ||
|---|---|---|
| 48 | 48 |
|
| 49 | 49 |
sub run {
|
| 50 | 50 |
my $self = shift; |
| 51 |
my $db_obj = shift; |
|
| 52 |
# options |
|
| 53 |
my $options = $db_obj->data_as_hash; |
|
| 51 | 54 |
$self->setup; |
| 52 | 55 |
|
| 53 | 56 |
return 1 unless $self->modules; |
| 54 | 57 |
|
| 58 |
|
|
| 59 |
$main::lxdebug->message(0, 'optioni' . Dumper($self->modules)); |
|
| 55 | 60 |
foreach my $module ($self->modules) {
|
| 61 |
next unless $module eq $options->{module};
|
|
| 62 |
$main::lxdebug->message(0, 'hieur' . $module); |
|
| 56 | 63 |
$self->run_module($module); |
| 57 | 64 |
} |
| 58 | 65 |
|
| ... | ... | |
| 95 | 102 |
} or $self->add_errors($::locale->text('Could not load class #1 (#2): "#3"', $module, $file, $@)) && return;
|
| 96 | 103 |
|
| 97 | 104 |
eval {
|
| 98 |
my $worker = $module->new; |
|
| 99 |
$worker->tester($self->tester); |
|
| 100 |
|
|
| 101 |
$worker->run; |
|
| 102 |
1; |
|
| 105 |
$self->tester->subtest($module => sub {
|
|
| 106 |
$module->new->run; |
|
| 107 |
}); |
|
| 108 |
1 |
|
| 103 | 109 |
} or $self->add_errors($::locale->text('Could not load class #1, #2', $module, $@)) && return;
|
| 104 | 110 |
|
| 105 | 111 |
$self->add_full_diag($output); |
Auch abrufbar als: Unified diff
Mehr als eine SelfTest-Modul prüfen
Der Aufruf der SelfTest funktionierte nur für genau eine
Datei - Mit einer leicht anderen Aufruf-Syntax werden auch weitere
Tests durchgeführt.