diff -uNr liblog-log4perl-layout-gelf-perl/t/01-log_to_graylog.t liblog/t/01-log_to_graylog.t --- liblog-log4perl-layout-gelf-perl/t/01-log_to_graylog.t 2018-02-16 16:07:18.220000000 +0100 +++ liblog/t/01-log_to_graylog.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,42 +0,0 @@ -#!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"); -}