File Coverage

blib/lib/Mason/t/Globals.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1             package Mason::t::Globals;
2             $Mason::t::Globals::VERSION = '2.24';
3 1     1   778 use Test::Class::Most parent => 'Mason::Test::Class';
  1         29092  
  1         6  
4              
5             sub test_globals : Tests {
6 1     1 0 686 my $self = shift;
7 1         8 $self->setup_interp( allow_globals => [qw(scalar $scalar2)] );
8 1         27 my $interp = $self->interp;
9 1         6 $interp->set_global( 'scalar', 5 );
10 1         3 $interp->set_global( '$scalar2', 'vanilla' );
11 1     1   12 throws_ok { $interp->set_global( '$bad', 8 ) } qr/\$bad is not in the allowed globals list/;
  1         139  
12 1         1199 $self->add_comp(
13             path => '/values',
14             src => '
15             scalar = <% $scalar %>
16             $scalar2 = <% $scalar2 %>
17             ',
18             );
19 1         9 $self->test_comp(
20             src => '
21             <& /values &>
22             % $scalar++;
23             % $scalar2 .= "s";
24             <& /values &>
25             ',
26             expect => '
27             scalar = 5
28             $scalar2 = vanilla
29              
30              
31             scalar = 6
32             $scalar2 = vanillas
33             ',
34             );
35 1     1   210 }
  1         1  
  1         8  
36              
37             1;