view release on metacpan or  search on metacpan

t/002_test.t  view on Meta::CPAN

#use Test::UniqueTestNames ;

use Test::Block qw($Plan);

use App::Chained ;

{
local $Plan = {'' => 1} ;


throws_ok
	{
	}
	qr//, 'failed' ;
}

t/test_template  view on Meta::CPAN

is(result, expected, "message") ;
}

=comment

{
local $Plan = {'' => } ;

is(result, expected, 'message') ;

throws_ok
	{
	
	} qr//, '' ;

lives_ok
	{
	
	} '' ;

like(result, qr//, '') ;