diff options
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"); |