perl/liblog-log4perl-layout-gelf-perl
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Imported Upstream version 0.03

Browse Source
This commit is contained in:
Mario Fetka
2018-02-16 16:07:18 +01:00
commit 03893a2309
15 changed files with 487 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
t/00-init.t Normal file
View File

@@ -0,0 +1,13 @@
#!perl -T
use strict;
use warnings;
use Test::More tests => 3;
BEGIN { use_ok( 'Log::Log4perl::Layout::GELF' ); }
my $layout = Log::Log4perl::Layout::GELF->new();
isa_ok($layout, "Log::Log4perl::Layout::GELF");
can_ok($layout, ("render"));

42
t/01-log_to_graylog.t Normal file
View File

@@ -0,0 +1,42 @@
#!perl -T
use strict;
use warnings;
use Test::More tests => 4;
BEGIN { use_ok( 'Log::Log4perl::Layout::GELF' ); }
BEGIN { use_ok( 'Log::Log4perl' ); }
my $layout = Log::Log4perl::Layout::GELF->new();
isa_ok($layout, "Log::Log4perl::Layout::GELF");
can_ok($layout, ("render"));
_init_logger();
sub _init_logger
{
my %logger_conf = (
'log4perl.logger.test.screen' => "DEBUG, DEFAULT",
'log4perl.appender.DEFAULT' => "Log::Log4perl::Appender::Screen",
'log4perl.appender.DEFAULT.stderr' => "0",
'log4perl.appender.DEFAULT.layout' => "GELF",
'log4perl.logger.test.server' => "DEBUG, SERVER",
'log4perl.appender.SERVER' => "Log::Log4perl::Appender::Socket",
'log4perl.appender.SERVER.PeerAddr' => '10.211.1.94',
'log4perl.appender.SERVER.PeerPort' => "12201",
'log4perl.appender.SERVER.Proto' => "udp",
'log4perl.appender.SERVER.layout' => "GELF"
);
Log::Log4perl->init( \%logger_conf );
my $LOGGER = Log::Log4perl->get_logger('test.server');
$LOGGER->debug("debug test");
$LOGGER->error("error test");
$LOGGER->info("info test");
$LOGGER->warn("warn test");
$LOGGER->fatal("fatal test");
}

34
t/02-log_to_screen.t Normal file
View File

@@ -0,0 +1,34 @@
#!perl -T
use strict;
use warnings;
use Test::More tests => 2;
BEGIN { use_ok( 'Log::Log4perl::Layout::GELF' ); }
BEGIN { use_ok( 'Log::Log4perl' ); }
_init_logger();
sub _init_logger
{
my %logger_conf = (
'log4perl.logger.test.screen' => "DEBUG, DEFAULT",
'log4perl.appender.DEFAULT' => "Log::Log4perl::Appender::Screen",
'log4perl.appender.DEFAULT.stderr' => "0",
'log4perl.appender.DEFAULT.layout' => "GELF",
'log4perl.appender.DEFAULT.layout.PlainText' => "1",
);
Log::Log4perl->init( \%logger_conf );
my $LOGGER = Log::Log4perl->get_logger('test.screen');
$LOGGER->debug("debug test");
$LOGGER->error("error test");
$LOGGER->info("info test");
$LOGGER->warn("warn test");
$LOGGER->fatal("fatal test");
}

13
t/manifest.t Normal file
View File

@@ -0,0 +1,13 @@
#!perl -T
use strict;
use warnings;
use Test::More;
unless ( $ENV{RELEASE_TESTING} ) {
plan( skip_all => "Author tests not required for installation" );
}
eval "use Test::CheckManifest 0.9";
plan skip_all => "Test::CheckManifest 0.9 required" if $@;
ok_manifest();

18
t/pod-coverage.t Normal file
View File

@@ -0,0 +1,18 @@
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod::Coverage
my $min_tpc = 1.08;
eval "use Test::Pod::Coverage $min_tpc";
plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage"
if $@;
# Test::Pod::Coverage doesn't require a minimum Pod::Coverage version,
# but older versions don't recognize some common documentation styles
my $min_pc = 0.18;
eval "use Pod::Coverage $min_pc";
plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage"
if $@;
all_pod_coverage_ok();

12
t/pod.t Normal file
View File

@@ -0,0 +1,12 @@
#!perl -T
use strict;
use warnings;
use Test::More;
# Ensure a recent version of Test::Pod
my $min_tp = 1.22;
eval "use Test::Pod $min_tp";
plan skip_all => "Test::Pod $min_tp required for testing POD" if $@;
all_pod_files_ok();