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 Test::More tests => 9;
+use Test::More tests => 10;
 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 );