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
|
package Mason::t::Globals;
$Mason::t::Globals::VERSION = '2.24';
use Test::Class::Most parent => 'Mason::Test::Class';
sub test_globals : Tests {
my $self = shift;
$self->setup_interp( allow_globals => [qw(scalar $scalar2)] );
my $interp = $self->interp;
$interp->set_global( 'scalar', 5 );
$interp->set_global( '$scalar2', 'vanilla' );
throws_ok { $interp->set_global( '$bad', 8 ) } qr/\$bad is not in the allowed globals list/;
$self->add_comp(
path => '/values',
src => '
scalar = <% $scalar %>
$scalar2 = <% $scalar2 %>
',
);
$self->test_comp(
src => '
<& /values &>
% $scalar++;
% $scalar2 .= "s";
<& /values &>
',
expect => '
scalar = 5
$scalar2 = vanilla
scalar = 6
$scalar2 = vanillas
',
);
}
1;
|
