File Coverage

blib/lib/Mason/Plugin/RouterSimple/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::RouterSimple::t::Basic;
BEGIN {
  $Mason::Plugin::RouterSimple::t::Basic::VERSION = '0.07';
}
use Test::Class::Most parent => 'Mason::Test::Class';

__PACKAGE__->default_plugins( [ '@Default', 'RouterSimple' ] );

sub test_routes : Tests {
    my $self = shift;

    $self->add_comp(
        path => '/foo.mc',
        src  => '
%% route "bar";
%% route "wiki/:page", { action => "wiki" };
%% route "download/*.*", { action => "download" };
%% route "blog/{year:[0-9]+}/{month:[0-9]{2}}";

<%args>
$.page => (default => "standard")
</%args>

month = <% $.month || "undef" %>
page = <% $.page || "standard" %>
splat = <% $.splat ? split(",", $.splat) : "undef" %>
action = <% $.action || "undef" %>

% $m->result->data->{args} = $.args;
',
    );

    my $try = sub {
        my ( $path, $expect ) = @_;

        my $result;
        if ($expect) {
            my $month = $expect->{month} || "undef";
            my $page  = $expect->{page}  || "standard";
            my $splat = $expect->{splat} ? split( ',', $expect->{splat} ) : "undef";
            my $action = $expect->{action} || "undef";
            $self->test_comp(
                path        => $path,
                expect      => "month = $month\npage = $page\nsplat = $splat\naction = $action",
                expect_data => { args => { %$expect, router_result => $expect } },
            );
        }
        else {
            $self->test_comp( path => $path, expect_error => qr/could not resolve request path/ );
        }
    };

    $try->( '/foo/bar',               {} );
    $try->( '/foo/wiki/abc',          { action => 'wiki', page => 'abc' } );
    $try->( '/foo/download/tune.mp3', { action => 'download', splat => [ 'tune', 'mp3' ] } );
    $try->( '/foo/blog/2010/02', { year => '2010', month => '02' } );
    $try->( '/foo/baz',          undef );
    $try->( '/foo/blog/201O/02', undef );
}

sub test_no_routes : Tests {
    my $self = shift;

    $self->add_comp(
        path => '/no_route.mc',
        src  => '<%class>method allow_path_info { 1 }</%class>
path_info = <% $m->path_info || "" %>',
    );
    $self->test_existing_comp( path => '/no_route',     expect => 'path_info =' );
    $self->test_existing_comp( path => '/no_route/abc', expect => 'path_info = abc' );

    $self->add_comp(
        path => '/no_route_or_allow.mc',
        src  => 'path_info = <% $m->path_info || "" %>',
    );
    $self->test_existing_comp( path => '/no_route_or_allow', expect => 'path_info =' );
    $self->test_existing_comp(
        path         => '/no_route_or_allow/abc',
        expect_error => qr/could not resolve request path/
    );
}

1;