|
Lines 72-79
sub new {
Link Here
|
| 72 |
$mocked_logger->mock( |
72 |
$mocked_logger->mock( |
| 73 |
$level, |
73 |
$level, |
| 74 |
sub { |
74 |
sub { |
| 75 |
my $message = $_[1]; |
75 |
my $message = $_[1]; |
| 76 |
push @{ $self->{$level} }, $message; |
76 |
my @caller_info = caller(2); |
|
|
77 |
push @{ $self->{$level} }, { message => $message, caller => \@caller_info }; |
| 77 |
return $message; |
78 |
return $message; |
| 78 |
} |
79 |
} |
| 79 |
); |
80 |
); |
|
Lines 82-87
sub new {
Link Here
|
| 82 |
return $self; |
83 |
return $self; |
| 83 |
} |
84 |
} |
| 84 |
|
85 |
|
|
|
86 |
=head3 diag |
| 87 |
|
| 88 |
$logger->diag(); |
| 89 |
|
| 90 |
Method to output all received logs. |
| 91 |
|
| 92 |
=cut |
| 93 |
|
| 94 |
sub diag { |
| 95 |
my ($self) = @_; |
| 96 |
my $tb = $CLASS->builder; |
| 97 |
|
| 98 |
foreach my $level ( levels() ) { |
| 99 |
$tb->diag("$level:"); |
| 100 |
if ( @{ $self->{$level} } ) { |
| 101 |
foreach my $log_entry ( @{ $self->{$level} } ) { |
| 102 |
my ( $package, $filename, $line ) = @{ $log_entry->{caller} }; |
| 103 |
$tb->diag( " \"" . $log_entry->{message} . "\" at $filename line $line" ); |
| 104 |
} |
| 105 |
} else { |
| 106 |
$tb->diag(" (No $level messages)"); |
| 107 |
} |
| 108 |
} |
| 109 |
return; |
| 110 |
} |
| 111 |
|
| 85 |
=head3 debug_is |
112 |
=head3 debug_is |
| 86 |
|
113 |
|
| 87 |
$logger->debug_is($expected); |
114 |
$logger->debug_is($expected); |
|
Lines 311-319
sub generic_is {
Link Here
|
| 311 |
|
338 |
|
| 312 |
local $Test::Builder::Level = $Test::Builder::Level + 1; |
339 |
local $Test::Builder::Level = $Test::Builder::Level + 1; |
| 313 |
|
340 |
|
| 314 |
my $string = shift @{ $self->{$level} }; |
341 |
my $log = shift @{ $self->{$level} }; |
| 315 |
$string //= ''; |
342 |
my $string = defined($log) ? $log->{message} : ''; |
| 316 |
my $tb = $CLASS->builder; |
343 |
my $tb = $CLASS->builder; |
| 317 |
return $tb->is_eq( $string, $expect, $name ); |
344 |
return $tb->is_eq( $string, $expect, $name ); |
| 318 |
} |
345 |
} |
| 319 |
|
346 |
|
|
Lines 328-336
sub generic_like {
Link Here
|
| 328 |
|
355 |
|
| 329 |
local $Test::Builder::Level = $Test::Builder::Level + 1; |
356 |
local $Test::Builder::Level = $Test::Builder::Level + 1; |
| 330 |
|
357 |
|
| 331 |
my $string = shift @{ $self->{$level} }; |
358 |
my $log = shift @{ $self->{$level} }; |
| 332 |
$string //= ''; |
359 |
my $string = defined($log) ? $log->{message} : ''; |
| 333 |
my $tb = $CLASS->builder; |
360 |
my $tb = $CLASS->builder; |
| 334 |
return $tb->like( $string, $expect, $name ); |
361 |
return $tb->like( $string, $expect, $name ); |
| 335 |
} |
362 |
} |
| 336 |
|
363 |
|
| 337 |
- |
|
|