view release on metacpan or  search on metacpan

t/lib/Data/Paging.t  view on Meta::CPAN

use common::sense;
use Test::More;
use Test::Fatal;

BEGIN {
    use_ok 'Data::Paging';
}

subtest 'instantiate with collection and renderer name' => sub {
    subtest 'should ommit renderer name of prefix' => sub {
        my $paging = Data::Paging->create({
            entries      => [qw/a b c d e f/],
            total_count  => 10,
            per_page     => 5,
            current_page => 1,
        }, '-NeighborLink');
        isa_ok $paging, "Data::Paging::Collection";
        isa_ok $paging->renderer, "Data::Paging::Renderer::NeighborLink";
    };

    subtest 'should accept renderer name by full name' => sub {
        my $paging = Data::Paging->create({
            entries      => [qw/a b c d e f/],
            total_count  => 10,
            per_page     => 5,
            current_page => 1,
        }, 'Data::Paging::Renderer::NeighborLink');
        isa_ok $paging, "Data::Paging::Collection";
        isa_ok $paging->renderer, "Data::Paging::Renderer::NeighborLink";
    };

    subtest 'should die when given unknown renderer' => sub {
        ok exception {
            Data::Paging->create({
                entries      => [qw/a b c d e f/],
                total_count  => 10,
                per_page     => 5,
                current_page => 1,
            }, 'Fuga::Hoge::NeighborLink');
        };
    };
};

done_testing;