pairprogramming

arrayref.pm

use strict;                                                                                                                                                                                                                           
use warnings;                                                                                                                                                                                                                         
use feature 'say';                                                                                                                                                                                                                    
use Data::Dump qw(pp);                                                                                                                                                                                                                
                                                                                                                                                                                                                                      
my $serial_failures = [];                                                                                                                                                                                                             
push @$serial_failures, {type => 'hard', message => 'welcome screen found', pattern => quotemeta 'Welcome'};                                                                                                                          
push @$serial_failures, {type => 'soft', message => 'Linux thingie found', pattern => quotemeta 'Linux version'};                                                                                                                     
push @$serial_failures, {type => 'soft', message => 'bsc#1112109', pattern => qr/serial-getty.*service: Service RestartSec=.*ms expired, scheduling restart/};                                                                        
                                                                                                                                                                                                                                      
say pp($serial_failures);   

output

[
  { message => "welcome screen found", pattern => "Welcome", type => "hard" },
  {
    message => "Linux thingie found",
    pattern => "Linux\\ version",
    type    => "soft",
  },
  {
    message => "bsc#1112109",
    pattern => qr/serial-getty.*service: Service RestartSec=.*ms expired, scheduling restart/,
    type    => "soft",
  },
]

whatever.pm

# in known_bugs module                                                                                                                                                                                                                
sub prepare_list_of_failures {                                                                                                                                                                                                        
    my $serial_failures = [];                                                                                                                                                                                                         
    push @$serial_failures, {type => 'hard', message => 'welcome screen found', pattern => quotemeta 'Welcome'};                                                                                                                      
    push @$serial_failures, {type => 'soft', message => 'Linux thingie found', pattern => quotemeta 'Linux version'};                                                                                                                 
    push @$serial_failures, {type => 'soft', message => 'bsc#1112109', pattern => qr/serial-getty.*service: Service RestartSec=.*ms expired, scheduling restart/};                                                                    
    return $serial_failures;                                                                                                                                                                                                          
}                                                                                                                                                                                                                                     
                                                                                                                                                                                                                                      
## in the main.pm                                                                                                                                                                                                                     
$testapi::distri->set_expected_serial_failures(prepare_list_of_failures());