[p5sagit/Log-Contextual.git] / t / yell-loudly.t

use strict;
use warnings;

use Test::More tests => 2;
use Test::Fatal;
use Log::Contextual qw(:log);

like(
   exception { Log::Contextual::set_logger() },
   qr/set_logger is no longer a direct sub in Log::Contextual/,
   'Log::Contextual::set_logger dies',
);

like(
   exception { Log::Contextual::with_logger() },
   qr/with_logger is no longer a direct sub in Log::Contextual/,
   'Log::Contextual::with_logger dies',
);
Commit	Line	Data
31285520	1	use strict;
	2	use warnings;
	3
	4	use Test::More tests => 2;
	5	use Test::Fatal;
	6	use Log::Contextual qw(:log);
	7
	8	like(
	9	exception { Log::Contextual::set_logger() },
	10	qr/set_logger is no longer a direct sub in Log::Contextual/,
	11	'Log::Contextual::set_logger dies',
	12	);
	13
	14	like(
	15	exception { Log::Contextual::with_logger() },
	16	qr/with_logger is no longer a direct sub in Log::Contextual/,
	17	'Log::Contextual::with_logger dies',
	18	);