testing: CGI::Application->tmpl

mandog has asked for the wisdom of the Perl Monks concerning the following question:

Inspired in part by Lessons learned from getting to 100% with Devel::Cover I'm trying to get 100% coverage with Devel::Cover in our CGI::Application code. I'm using Test::Class. I'm trying to test the a run mode. In cgiapp_prerun We do:

....
  $self->tmpl_path(
        [   $ENV{MV_CUSTOM_HTML_TEMPLATE_DIR},
            $ENV{MV_DEFAULT_HTML_TEMPLATE_DIR}
        ]
    );
...
[download]

The code I'm trying to get coverage for is in a run mode:

   my $tmpl = $self->load_tmpl('login.tmpl')
        or die "Failed to open template file 'login.tmpl'";
[download]

use Test::Exception;
...
sub show_login_page : Tests(1) {
    my $app = shift->{rm_show_login_page};
    $app->tmpl_path( [] );
    dies_ok { $app->run() } 'dies if missing template file';
}
[download]

If I don't want to mix testing bits into my actual code, do I have an alternative to mucking with the private bits of my CGI::Application object to set $_TEMPLATE_PATH=[]

email: mandog

Comment on testing: CGI::Application->tmpl_path() Select or Download Code

Replies are listed 'Best First'.
Re: testing: CGI::Application->tmpl_path() by chromatic (Archbishop) on Oct 28, 2008 at 00:34 UTC
Use Test::MockObject::Extends to wrap the CGI::Application object for that request and override its `load_tmpl()` method to return false.	[reply] [d/l]
Re: testing: CGI::Application->tmpl_path() by Anonymous Monk on Oct 28, 2008 at 01:01 UTC
IMHO, that should be `MyCGIApplication->new( tmpl_path ... )` [download]	[reply] [d/l]

Back to Seekers of Perl Wisdom