1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!perl
use strict;
use warnings;
use Test::More 0.98;
use Log::ger::Util;
package My::P1;
use Log::ger;
package main;
subtest "basics" => sub {
my $ary = [];
require Log::ger::Output;
Log::ger::Output->set('Array', array => $ary);
my $h = {}; Log::ger::init_target(hash => $h);
is(ref $h, 'HASH');
$h->{fatal}("fatal");
$h->{error}("error");
$h->{warn}("warn");
$h->{info}("info");
$h->{debug}("debug");
$h->{trace}("trace");
is_deeply($ary, [qw/fatal error warn/]);
};
done_testing;
|
