diff options
Diffstat (limited to 't/053Resurrect.t')
-rw-r--r-- | t/053Resurrect.t | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/t/053Resurrect.t b/t/053Resurrect.t new file mode 100644 index 0000000..5c21132 --- /dev/null +++ b/t/053Resurrect.t @@ -0,0 +1,38 @@ +########################################### +# Test Suite for Log::Log4perl::Resurrector +# Mike Schilli, 2007 (m@perlmeister.com) +########################################### + +BEGIN { + if($ENV{INTERNAL_DEBUG}) { + require Log::Log4perl::InternalDebug; + Log::Log4perl::InternalDebug->enable(); + } +} + +use strict; +use Test::More; +use Log::Log4perl qw(:easy); + +BEGIN { + my $eg = "eg"; + $eg = "../eg" unless -d $eg; + push @INC, $eg; +}; + +use Log::Log4perl::Resurrector; +use L4pResurrectable; + +plan tests => 1; + +Log::Log4perl->init(\ <<'EOT'); + log4perl.logger = DEBUG, A1 + log4perl.appender.A1 = Log::Log4perl::Appender::TestBuffer + log4perl.appender.A1.layout = Log::Log4perl::Layout::SimpleLayout +EOT + +my $buffer = Log::Log4perl::Appender::TestBuffer->by_name("A1"); + +L4pResurrectable::foo(); +is($buffer->buffer(), "DEBUG - foo was here\nINFO - bar was here\n", + "resurrected statement"); |