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
94
95
96
97
98
99
100
101
102
103
|
use strict;
use Test::More;
BEGIN {
eval "use DBD::SQLite";
plan $@ ? (skip_all => 'needs DND::SQLite for testing')
: (tests => 37);
}
use DBI;
my $DB = "t/testdb";
unlink $DB if -e $DB;
my @DSN = ("dbi:SQLite:dbname=$DB", '', '', { AutoCommit => 1 });
DBI->connect(@DSN)->do(<<SQL);
CREATE TABLE film (id INTEGER NOT NULL PRIMARY KEY, title VARCHAR(32))
SQL
;
package Film;
use base qw(Class::DBI);
__PACKAGE__->set_db(Main => @DSN);
__PACKAGE__->table('film');
__PACKAGE__->columns(Primary => qw(id));
__PACKAGE__->columns(All => qw(title));
use Class::DBI::Pager;
package main;
for my $i (1..50) {
Film->create({
title => "title $i",
});
}
{
my $pager = Film->pager(20, 1);
eval { $pager->total_entries; };
like $@, qr/Can't call pager methods without searching/, $@;
}
{
my $pager = Film->pager(20, 1);
my $iterator = $pager->retrieve_all;
isa_ok $pager, 'Class::DBI::Pager';
is $pager->total_entries, 50, "total is 50";
is $pager->entries_per_page, 20, "entries_per_page";
is $pager->current_page, 1, "current_page";
is $pager->first_page, 1, "first page";
is $pager->last_page, 3, "last page is 3";
is $pager->first, 1, "first is 1";
is $pager->last, 20, "last is 20";
is $pager->previous_page, undef, "previous_page";
is $pager->next_page, 2, "next_page";
isa_ok $iterator, 'Class::DBI::Iterator';
is $iterator->count, 20, 'iterator counts 20';
}
{
my $pager = Film->pager(20, 3);
my $iterator = $pager->retrieve_all;
isa_ok $pager, 'Class::DBI::Pager';
is $pager->total_entries, 50, "total is 50";
is $pager->entries_per_page, 20, "entries_per_page";
is $pager->current_page, 3, "current_page";
is $pager->first_page, 1, "first page";
is $pager->last_page, 3, "last page is 3";
is $pager->first, 41, "first is 41";
is $pager->last, 50, "last is 50";
is $pager->previous_page, 2, "previous_page";
is $pager->next_page, undef, "next_page";
isa_ok $iterator, 'Class::DBI::Iterator';
is $iterator->count, 10, 'iterator counts 10';
}
{
my $pager = Film->pager(20, 1);
my $iterator = $pager->search_like(title => "title 1%");
isa_ok $pager, 'Class::DBI::Pager';
is $pager->total_entries, 11, "total is 11";
is $pager->entries_per_page, 20, "entries_per_page";
is $pager->current_page, 1, "current_page";
is $pager->first_page, 1, "first page";
is $pager->last_page, 1, "last page is 1";
is $pager->first, 1, "first is 1";
is $pager->last, 11, "last is 11";
is $pager->previous_page, undef, "previous_page";
is $pager->next_page, undef, "next_page";
is $iterator->count, 11, "iterator counts 11";
my @list = $pager->search_like(title => "title 1%");
is scalar(@list), 11, "array context works";
}
END { unlink $DB if -e $DB }
|
