X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FTestApp.pm;fp=t%2Flib%2FTestApp.pm;h=618a5fdf18768b8f50d437dc78958b973eef8a0e;hb=e2bbd784a07be43eafd895234b115503a8966126;hp=12d9bc071d4333f786f774447c398607c362f9db;hpb=4d97e86fabeaa9fffb6363718f7ca0885f0f5de5;p=catagits%2FCatalyst-View-TT.git

diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm
index 12d9bc0..618a5fd 100755
--- a/t/lib/TestApp.pm
+++ b/t/lib/TestApp.pm
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 
 use Catalyst; # qw/-Debug/;
+use Path::Class;
 
 our $VERSION = '0.01';
 
@@ -32,6 +33,16 @@ sub test : Local {
     $c->stash->{message} = ($c->request->param('message') || $c->config->{default_message});
 }
 
+sub test_includepath : Local {
+    my ($self, $c) = @_;
+    $c->stash->{message} = ($c->request->param('message') || $c->config->{default_message});
+    $c->stash->{template} = $c->request->param('template');
+    if ( $c->request->param('additionalpath') ){
+        my $additionalpath = Path::Class::dir($c->config->{root}, $c->request->param('additionalpath'));
+        $c->stash->{additional_template_paths} = ["$additionalpath"];
+    }
+}
+
 sub end : Private {
     my ($self, $c) = @_;