test modulo

diff --git a/t/10-ranges.t b/t/10-ranges.t
index 9cfce11ff29f10398d192d187afad08dfcd6deab..4515aa6fdc7037f89ca5150e7f2620c20df6c8f5 100644 (file)
--- a/t/10-ranges.t
+++ b/t/10-ranges.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 9;
 use Test::NoWarnings;
 use Data::Dump 'pp';
 
@@ -125,6 +125,28 @@ subtest 'distribution' => sub {
        # page #16 [i-ie] (5): i iaab ibiavqyar idfniqvxpohbk idh
 };
 
+subtest 'modulo' => sub {
+       plan tests => 2;
+       my $index = List::Index->new([qw(
+               a b ccb   ccd  cce gf gg   gh  i j
+       )]) or return;
+       # 10 entries at 4 per page requires 3 pages
+       # so actual target page sizes should be 3,4,3 (not 4,4,2)
+
+       is_deeply(
+               $index->ranges({ pagesize=>4, context=>0 }),
+               [qw(-ccc ccd-gg gh-)],
+               'uniform page sizes'
+       );
+{ local $TODO = 'early lookbehind causing [c-gg]';
+       is_deeply(
+               $index->ranges({ pagesize=>4, context=>1 }),
+               [qw(-b c-h i-)],
+               'context at new intervals'
+       );
+}
+};
+
 subtest 'context' => sub {
        plan tests => 4;
        my $index = List::Index->new([qw(

diff --git a/t/25-apply.t b/t/25-apply.t
index a006c0e3bb4a0c59244450916f3d07de0987cb52..92467c3d327860fc7bf59fea8fd4056d1ff1a218 100644 (file)
--- a/t/25-apply.t
+++ b/t/25-apply.t
@@ -11,7 +11,7 @@ use List::MoreUtils qw(uniq firstidx);
 BEGIN { use_ok('List::Index' => 'rangematch'); }
 
 {
-       my %options = (pagesize => 10, context => 5);
+       my %options = (pagesize => 10, context => 2);
 
        # generate random test data
        my @values;