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
|
package Mason::t::Cache;
$Mason::t::Cache::VERSION = '2.24';
use Test::Class::Most parent => 'Mason::Test::Class';
__PACKAGE__->default_plugins( [ '@Default', 'Cache' ] );
sub test_cache_defaults : Tests {
my $self = shift;
$self->run_test_in_comp(
path => '/cache/defaults.mc',
test => sub {
my $comp = shift;
is( $comp->cache->label, 'File', 'cache->label' );
is( $comp->cache->namespace, $comp->cmeta->path, 'cache->namespace' );
}
);
}
sub test_cache_method : Tests {
my $self = shift;
$self->test_comp(
path => '/cache.mc',
src => '
<%class>
has "count" => ( default => 0 );
</%class>
<%method getset ($key)>
<%perl>$.count($.count+1);</%perl>
<% $.cache->compute($key, sub { $key . $.count }) %>
</%method>
namespace: <% $.cache->namespace %>
<% $.getset("foo") %>
<% $.getset("bar") %>
<% $.getset("bar") %>
<% $.getset("foo") %>
',
expect => '
namespace: /cache.mc
foo1
bar2
bar2
foo1
',
);
}
sub test_cache_filter : Tests {
my $self = shift;
$self->test_comp(
src => '
% my $i = 1;
% foreach my $key (qw(foo bar)) {
% $.Repeat(3), $.Cache($key) {{
i = <% $i++ %>
% }}
% }
',
expect => '
i = 1
i = 1
i = 1
i = 2
i = 2
i = 2
',
);
$self->test_comp(
src => '
% my $i = 1;
% foreach my $key (qw(foo foo)) {
% $.Cache($key), $.Repeat(3) {{
i = <% $i++ %>
% }}
% }
',
expect => '
i = 1
i = 2
i = 3
i = 1
i = 2
i = 3
'
);
}
|
