diff options
author | Lorry Tar Creator <lorry-tar-importer@lorry> | 2014-11-01 01:47:12 +0000 |
---|---|---|
committer | Lorry Tar Creator <lorry-tar-importer@lorry> | 2014-11-01 01:47:12 +0000 |
commit | 94566f012421026c8311552f99175a5989eba063 (patch) | |
tree | 0bfd47111b94a1715d14b8c4ab2d82ad1abc09b1 /t/065Undef.t | |
download | Log-Log4perl-tarball-94566f012421026c8311552f99175a5989eba063.tar.gz |
Log-Log4perl-1.46HEADLog-Log4perl-1.46master
Diffstat (limited to 't/065Undef.t')
-rw-r--r-- | t/065Undef.t | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/t/065Undef.t b/t/065Undef.t new file mode 100644 index 0000000..31447e5 --- /dev/null +++ b/t/065Undef.t @@ -0,0 +1,28 @@ +use strict; + +use File::Temp qw( tempfile ); + +BEGIN { + if($ENV{INTERNAL_DEBUG}) { + require Log::Log4perl::InternalDebug; + Log::Log4perl::InternalDebug->enable(); + } +} + +my($tmpfh, $tempfile) = tempfile( UNLINK => 1 ); + +use Test::More; +BEGIN { plan tests => 1 }; +use Log::Log4perl qw( :easy ); + +Log::Log4perl->easy_init( { level => $DEBUG, file => $tempfile } ); + +my $warnings = ""; + +$SIG{__WARN__} = sub { + $warnings .= $_[0]; +}; + +DEBUG "foo", undef, "bar"; + +like $warnings, qr/Log message argument #2/, "warning for undef element issued"; |