1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
use strict;
use Test::More 'no_plan';
my $Per_Template_Driver_Tests = 4;
{
package WebApp;
use Test::More;
use CGI::Application;
use CGI::Application::Plugin::AnyTemplate;
use vars '@ISA';
@ISA = ('CGI::Application');
sub setup {
my $self = shift;
$self->header_type('none');
$self->start_mode('embed_start');
$self->run_modes([qw/
embed_start
embed_non_existent_runmode_sub
/]);
$self->template->config(
# default_type => $self->param('template_driver'),
include_paths => 't/tmpl',
HTMLTemplate => {
die_on_bad_params => 0,
},
HTMLTemplateExpr => {
die_on_bad_params => 0,
template_extension => '.html_expr',
},
);
}
sub embed_start {
my $self = shift;
my $driver = $self->param('template_driver');
my $template = $self->template->load(
'embed_error1',
);
my $output;
eval {
$output = $template->output;
};
ok($@, "Caught embed to non existent runmode");
# like($@, qr/embed_non_existent_runmode.*listed/, "Caught embed to non existent runmode (error message ok)");
# Changed because we currently can't trap and report errors in embed_direct
like($@, qr/embed_non_existent_runmode/, "Caught embed to non existent runmode (error message ok)");
$template = $self->template->load(
'embed_error2',
);
eval {
$output = $template->output;
};
ok($@, "Caught embed to non existent runmode sub ");
like($@, qr/embed_non_existent_runmode.*sub/, "Caught embed to non existent runmode sub (error message ok)");
'';
}
}
SKIP: {
if (test_driver_prereqs('HTMLTemplate')) {
WebApp->new(PARAMS => { template_driver => 'HTMLTemplate' })->run;
}
else {
skip "HTML::Template not installed", $Per_Template_Driver_Tests;
}
}
sub test_driver_prereqs {
my $driver = shift;
my $driver_module = 'CGI::Application::Plugin::AnyTemplate::Driver::' . $driver;
eval "require $driver_module;";
die $@ if $@;
my @required_modules = $driver_module->required_modules;
foreach (@required_modules) {
eval "require $_;";
if ($@) {
return;
}
}
return 1;
}
|
