1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
use strict;
use warnings;
use Test::More tests => 5;
use Log::Any::Test;
use Log::Any qw($log);
$log->err("this is an error") if $log->is_error;
$log->debugf( "this is a %s with a defined (%s) value and an %s value",
"debug", [ 1, 2 ], undef )
if $log->is_debug;
$log->debugf( "this is a %s value", ["multi\nline"] ) if $log->is_debug;
$log->contains_ok( qr/this is an error/, 'got error' );
$log->contains_ok(
qr/this is a debug with a defined \(\[1,2\]\) value and an <undef> value/,
'got debug' );
$log->contains_ok( qr/this is a \["multi\\nline"\] value/, 'got multi-line' );
$log->empty_ok();
TODO: {
local $TODO = 'to do';
$log->contains_ok(qr/should not be there/, "this is TODO on purpose");
}
|
