git.shiar.nl
/
perl
/
list-index.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix corner case where #items-1 == #pages
[perl/list-index.git]
/
t
/
10-ranges.t
diff --git
a/t/10-ranges.t
b/t/10-ranges.t
index 5c994c1946293bc36e1320c106b958a481b7d352..3a465b83eddec8950eab27790d12dc7be1660de2 100644
(file)
--- a/
t/10-ranges.t
+++ b/
t/10-ranges.t
@@
-2,7
+2,7
@@
use strict;
use warnings;
use strict;
use warnings;
-use Test::More tests =>
9
;
+use Test::More tests =>
10
;
use Test::NoWarnings;
use Data::Dump 'pp';
use Test::NoWarnings;
use Data::Dump 'pp';
@@
-165,6
+165,16
@@
subtest 'modulo' => sub {
);
};
);
};
+subtest 'corner cases' => sub {
+ plan tests => 1;
+
+ is_deeply(
+ List::Index->new->ranges(['foo','bar']),
+ ['-'],
+ '2 rows 1 page'
+ );
+};
+
subtest 'context' => sub {
plan tests => 4;
my @data = qw( baa1 baa2 baa3 baaa bbc cbc daaa ea eaaa zed );
subtest 'context' => sub {
plan tests => 4;
my @data = qw( baa1 baa2 baa3 baaa bbc cbc daaa ea eaaa zed );