MSCHILLI / Log-Log4perl-0.24 / t / 016Export.t 

            

              
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104

              
###########################################
# Test Suite for Log::Log4perl
# Test all shortcuts (exported symbols)
#
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
#########################
use Test;
BEGIN { plan tests => 13 };
use Log::Log4perl qw(get_logger :levels);
ok(1);
ok(Log::Log4perl::Level::isGreaterOrEqual($DEBUG, $ERROR));
ok(Log::Log4perl::Level::isGreaterOrEqual($INFO, $WARN));
ok(Log::Log4perl::Level::isGreaterOrEqual($WARN, $ERROR));
ok(Log::Log4perl::Level::isGreaterOrEqual($ERROR, $FATAL));
##################################################
# Init logger
##################################################
my $app = Log::Log4perl::Appender->new(
    "Log::Log4perl::TestBuffer");
my $logger = get_logger("abc.def");
$logger->add_appender($app);
$logger->level($DEBUG);
    # Let the next logger assume the default category,
    # which defaults to the current package, which
    # is 'main' in this case.
my $logger_main = get_logger();
$logger_main->add_appender($app);
$logger_main->level($DEBUG);
ok(2);
##################################################
# Use logger
##################################################
my $log2 = get_logger("abc.def");
$log2->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");
##################################################
# Use other logger
##################################################
my $log3 = get_logger("main");
$log3->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");
##################################################
# Use main logger
##################################################
my $log4 = get_logger("main");
$log4->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");
##################################################
# Use other logger
##################################################
my $log5 = get_logger("main");
$log5->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");
##################################################
# Use default-main logger
##################################################
my $log6 = get_logger();
$log6->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");
##################################################
# Use default-main logger
##################################################
my $log7 = Log::Log4perl->get_logger();
$log7->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");
##################################################
# Use default-main logger
##################################################
my $log8 = Log::Log4perl::get_logger();
$log8->debug("Is this it?");
ok($app->buffer(), "DEBUG - Is this it?\n");
$app->buffer("");