added test for scalar exception test

daviddelikat · daviddelikat · commit 7120969ba2ed · 2011-12-13T22:09:18.000Z
diff --git 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';
+}
+
