[p5sagit/Log-Contextual.git] / t / rt83267-begin.t

use Test::More qw(no_plan);

BEGIN {
   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');
}
Commit	Line	Data
249b9eb6	1	use Test::More qw(no_plan);
	2
	3	BEGIN {
	4	eval {
	5	package NotMain;
	6
	7	use strict;
	8	use warnings;
	9	use Test::More;
	10	use Log::Contextual::SimpleLogger;
	11
	12	use Log::Contextual qw(:log),
	13	-default_logger =>
	14	Log::Contextual::SimpleLogger->new({levels => [qw( )]});
	15
	16	eval {
	17	log_info { "Yep" }
	18	};
	19	is($@, '', 'Invoked log function in package other than main');
	20	};
	21
	22	is($@, '', 'non-main package subtest did not die');
	23	}