#!/usr/bin/perl
use Test::More tests => 5;
use CGI::Application;
$ENV{CGI_APP_RETURN_ONLY} = 1;
my $app = CGI::Application->new();
my $out = $app->run;
like($out, qr/start/, "normal app output contains start");
unlike($out, qr/load_tmpl_hook/, "normal app output doesn't contain load_tmpl_hook");
{
$app->add_callback('load_tmpl', sub {
my ($self,$ht_params,$tmpl_params,$tmpl_name) = @_;
$self->query->param('load_tmpl_hook' => 1);
$tmpl_params->{'ping'} = 'ping_hook';
$self->param('found_file_name',$tmpl_name);
});
my $t = $app->load_tmpl('t/lib/templates/test.tmpl', );
my $out = $app->run;
like($out, qr/load_tmpl_hook/, "adding load_tmpl callback causes load_tmpl_hook to appear");
like($t->output, qr/ping_hook/, 'load_tmpl callback affected template' );
is( $app->param('found_file_name'), 't/lib/templates/test.tmpl',
'template name passed into callback works');
}