#!perl -w

use strict;
use Test::More tests => 5;

use warnings::method;

ok !eval q{
	use warnings FATAL => 'syntax';

	UNIVERSAL::isa('UNIVERSAL', 'UNIVERSAL');
}, 'FATAL';
like $@, qr/^Method/, 'die with message';

{
	local $SIG{__WARN__} = sub{};

	ok eval q{
		use warnings;
		UNIVERSAL::isa('UNIVERSAL', 'UNIVERSAL');
	}, 'NONFATAL';
	if($@){
		diag $@;
	}
}
ok !eval q{
	use warnings::method 'foo';

	UNIVERSAL::isa('UNIVERSAL', 'UNIVERSAL');
}, 'Unknown subdirective';
like $@, qr/^Unknown mode foo/, 'die with usage';