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/058Warnings.t | |
download | Log-Log4perl-tarball-94566f012421026c8311552f99175a5989eba063.tar.gz |
Log-Log4perl-1.46HEADLog-Log4perl-1.46master
Diffstat (limited to 't/058Warnings.t')
-rw-r--r-- | t/058Warnings.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/058Warnings.t b/t/058Warnings.t new file mode 100644 index 0000000..4dbb464 --- /dev/null +++ b/t/058Warnings.t @@ -0,0 +1,25 @@ + +BEGIN { + if($ENV{INTERNAL_DEBUG}) { + require Log::Log4perl::InternalDebug; + Log::Log4perl::InternalDebug->enable(); + } +} + +use Test::More; +use Log::Log4perl qw(:nostrict); + +plan tests => 1; + +my $warnings; + +$SIG{__WARN__} = sub { + $warnings .= $_[0]; +}; + +my $EG_DIR = "eg"; +$EG_DIR = "../eg" unless -d $EG_DIR; + +Log::Log4perl->init( "$EG_DIR/dupe-warning.conf" ); + +is($warnings, undef, "no warnings"); |