improved the test for bug 83267

[p5sagit/Log-Contextual.git] / t / regression_83267.t

#original bug report https://rt.cpan.org/Public/Bug/Display.html?id=83267

#The following code from Module::Metadata 1.000011 exposed the bug
#BEGIN {
#  if ($INC{'Log/Contextual.pm'}) {
#    Log::Contextual->import('log_info');
#  } else {
#    *log_info = sub (&) { warn $_[0]->() };
#  }
#}

use Test::More qw(no_plan);

BEGIN {
    if (0) {
           eval {
                package NotMain;
                
                use strict;
                use warnings;
                use Test::More;
                use Log::Contextual::SimpleLogger;
                
                use Log::Contextual qw(:log),
                  -default_logger =>  Log::Contextual::SimpleLogger->new({ levels => [qw( )] });
                
                eval { log_info { "Yep" } };
                is($@, '', 'Invoked log function in package other than main');
         };
         
         is($@, '', 'non-main package subtest did not die');
    }
}

package main;

use strict;
use warnings;
use Test::More;

#bug report does not include a case where Log::Contextual is
#brought in via 'use'
require Log::Contextual;

#try to import a single log function but do not include any tags
eval { Log::Contextual->import('log_info') };
is($@, '', 'Imported log function with out dying');

eval { log_info { "test" } 1 };
is($@, '', 'Was able to invoke log function');