blob: 5b18ae9c558c2f2f734b9364130d1e1bdb324bda (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;
use Data::Dumper;
BEGIN {
use_ok( 'ManaTools::Shared::Logging' ) || print "ManaTools::Shared::Logging failed!\n";
}
ok ( my $obj = ManaTools::Shared::Logging->new(), 'new_logging');
diag Dumper($obj);
# check I,W,E,D
ok ( $obj->I("test info %d", 1), 'info_logging');
ok ( $obj->W("test warning %d", 2), 'warning_logging');
ok ( $obj->E("test err %d", 3), 'err_logging');
ok ( $obj->D("test debug %d", 4), 'debug_logging');
done_testing;
|
