File Coverage

blib/lib/Mason/Plugin/Cache/t/Basic.pm

Criterion	Covered	Total	%
statement	4	4	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	6	100.0

package Mason::Plugin::Cache::t::Basic;
BEGIN {
  $Mason::Plugin::Cache::t::Basic::VERSION = '0.05';
}
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;
            foreach my $cache ( $comp->cache, $comp->m->cache ) {
                is( $cache->label,     'File',             'cache->label' );
                is( $cache->namespace, $comp->cmeta->path, 'cache->namespace' );
            }
        }
    );
}

sub test_cache_method : Tests {
    my $self = shift;
    $self->test_comp(
        path => '/cache.mc',
        src  => '
<%shared>
$.count => 0
</%shared>

<%method getset ($key)>
<%perl>$.count($.count+1);</%perl>
<% $.cache->compute($key, sub { $key . $.count }) %>
</%method>

namespace: <% $m->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
'
    );
}

sub test_cache_with_defer : Tests {
    return "not yet implemented";

    my $self = shift;

    my $path = '/cache/defer.mc';
    $self->add_comp(
        path => $path,
        src  => '
% $.Cache("all") {{
foo = <% $m->defer(sub { $Foo::foo }) %>
% $Foo::foo++;
% }}
'
    );
    $Foo::foo = 5;
    $self->test_existing_comp( path => $path, expect => 'foo = 6' );
    $Foo::foo = 10;
    $self->test_existing_comp( path => $path, expect => 'foo = 6' );
}

sub test_cache_memoization : Tests {
    my $self = shift;
    $self->run_test_in_comp(
        path => '/cache/memoize.mc',
        test => sub {
            my $comp = shift;

            is( $comp->cache_memoized, undef, 'Cache not memoized by default' );
            $comp->cache_memoized('buu!');
            is( $comp->cache_memoized, 'buu!', 'Memoization updated' );
        }
    );

    $self->run_test_in_comp(
        path => '/cache/memoize.mc',
        test => sub {
            my $comp = shift;

            is( $comp->cache_memoized, 'buu!', 'Cache memoization works across requests' );
        }
    );
}