From 7120969ba2ed2cb304a882d9d734a5ef3b431eab Mon Sep 17 00:00:00 2001 From: David Delikat Date: Tue, 13 Dec 2011 22:09:18 +0000 Subject: [PATCH] added test for scalar exception test --- t/Asset/Template.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/t/Asset/Template.t b/t/Asset/Template.t index 97274388d..dc7c66cdc 100644 --- a/t/Asset/Template.t +++ b/t/Asset/Template.t @@ -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'; +} +