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
|
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Test::Exception;
my $pkg;
BEGIN {
$pkg = 'Catmandu::Hits';
use_ok $pkg;
}
require_ok $pkg;
my $data = [(1 .. 100)];
my $h = Catmandu::Hits->new(start => 0, limit => 10, total => 100,
hits => $data);
can_ok $h, 'start';
can_ok $h, 'limit';
can_ok $h, 'total';
can_ok $h, 'maximum_offset';
can_ok $h, 'hits';
can_ok $h, 'size';
throws_ok {Catmandu::Hits->new(limit => 10, total => 100, hits => $data)}
qr/missing required arguments: start/i;
throws_ok {Catmandu::Hits->new(start => 0, total => 100, hits => $data)}
qr/missing required arguments: limit/i;
throws_ok {Catmandu::Hits->new(start => 0, limit => 10, hits => $data)}
qr/missing required arguments: total/i;
throws_ok {Catmandu::Hits->new(start => 0, limit => 10, total => 100)}
qr/missing required arguments: hits/i;
ok $h->does('Catmandu::Iterable'), 'is an Iterable';
ok $h->does('Catmandu::Paged'), 'is a Paged';
is_deeply $h->hits, $data, 'test content';
ok $h->more, 'test mode';
is $h->limit, 10, 'test limit';
is $h->size, 100, 'test size';
is $h->start, 0, 'test start';
is $h->first, 1, 'test first';
my $sum = 0;
$h->each(sub {$sum += shift});
is $sum, 5050, 'test each';
is_deeply $h->to_array, [(1 .. 100)], 'test to_array';
is $h->generator->(), 1, 'test generator';
done_testing;
|
