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

no netowrk tests

This commit is contained in:
Mario Fetka 2018-02-16 16:34:37 +01:00
parent ef77998689
commit 32ed839f0e
2 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
debian/patches/no-net-test.patch vendored Normal file
View File

@ -0,0 +1,46 @@
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");
-}

1
debian/patches/series vendored Normal file
View File

@ -0,0 +1 @@
no-net-test.patch