Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

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=[]

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
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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2015-11-28 12:23 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (741 votes), past polls