Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 3b3e1554

Von Bernd Bleßmann vor etwa 4 Jahren hinzugefügt

  • ID 3b3e15543303c45c20418980bc97f6966bc85c0b
  • Vorgänger 8da82ce0
  • Nachfolger 4542774a

SL/BackgroundJob/SelfTest: eine lfd. Modulnummer hinzufügen.

Die Ergebnisse für das E-Mail-Template liegen in einem Hash mit den
Modul-Namen als keys. Im Template wird über die keys iteriert, damit ist
die Reihenfolge aber nicht garantiert. Deshalb wird hier eine Modulnummer
vor dem Namen eingefügt und die Ergbenisse sortiert - so kommen die Ergebisse
in der Reihenfolge der Module in der Konfig-Datei.

Unterschiede anzeigen:

SL/BackgroundJob/SelfTest.pm
26 26 
   'add_full_diag'  => { interface => 'add', hash_key => 'full_diag' },
27 27 
  ],
28 28 
  scalar => [
29 
   qw(diag tester config aggreg),
29 
   qw(diag tester config aggreg module_nr),
30 30 
  ],
31 31 
);
32 32 

  		




  ......




  88
  88
  
    
  $module =~ s/[^\w:]//g;


  		




  89
  89
  
    
  $module = "SL::BackgroundJob::SelfTest::$module";


  		




  90
  90
  
    

  		




  
  91
  
    
  # increase module nr


  		




  
  92
  
    
  $self->module_nr(($self->module_nr || 0) + 1);


  		




  
  93
  
    

  		




  91
  94
  
    
  # try to load module;


  		




  92
  95
  
    
  (my $file = $module) =~ s|::|/|g;


  		




  93
  96
  
    
  eval {


  		




  ......




  103
  106
  
    
  } or $self->add_errors($::locale->text('Could not load class #1, #2', $module, $@)) && return;


  		




  104
  107
  
    

  		




  105
  108
  
    
  $self->add_full_diag($output);


  		




  106
  
  
    
  $self->{diag_per_module}{$module} = $output;


  		




  
  109
  
    
  $self->{diag_per_module}{$self->module_nr . ': ' . $module} = $output;


  		




  107
  110
  
    

  		




  108
  111
  
    
  my $parser = TAP::Parser->new({ tap => $output});


  		




  109
  112
  
    
  $parser->run;


  		












Auch abrufbar als:  Unified diff