added test for scalar exception test

This commit is contained in:
David Delikat 2011-12-13 22:09:18 +00:00
parent e364012044
commit 7120969ba2

View file

@ -16,7 +16,7 @@ use WebGUI::Test;
use WebGUI::Session;
use WebGUI::Asset::Template;
use Exception::Class;
use Test::More tests => 58; # increment this value for each test you create
use Test::More tests => 59; # increment this value for each test you create
use Test::Deep;
use Data::Dumper;
use Test::Exception;
@ -311,3 +311,14 @@ throws_ok
'Parser not in config dies';
isa_ok $class->getParser( $session, 'WebGUI::Asset::Template::HTMLTemplateExpr'), 'WebGUI::Asset::Template::HTMLTemplateExpr', 'parser in config is created';
{
use Test::MockObject::Extends;
my $mockparser = Test::MockObject->new->mock( process => sub { $@ = "failed" } );
my $mockTemplate = Test::MockObject::Extends->new( $class )
->mock( get => sub { return '' } )
->mock( session => sub { return $session } )
->mock( getParser => sub { return $mockparser } )
;
is $mockTemplate->process, 'failed', 'handle non-reference exceeption';
}