Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

testing: CGI::Application->tmpl_path()

by mandog (Curate)
on Oct 27, 2008 at 21:21 UTC ( #719836=perlquestion: print w/replies, xml ) Need Help??
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:
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'";
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'; }
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=[]

Replies are listed 'Best First'.
Re: testing: CGI::Application->tmpl_path()
by chromatic (Archbishop) on Oct 28, 2008 at 00:34 UTC
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 ... )

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://719836]
Approved by ww
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2017-05-30 04:53 GMT
Find Nodes?
    Voting Booth?