From e0d12a55c119c9473d1ea57c4e57bb5c6ff87157 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 15 Nov 2009 01:07:40 +0100
Subject: [PATCH] test modulo

---
 t/10-ranges.t | 24 +++++++++++++++++++++++-
 t/25-apply.t  |  2 +-
 2 files changed, 24 insertions(+), 2 deletions(-)

diff --git a/t/10-ranges.t b/t/10-ranges.t
index 9cfce11..4515aa6 100644
--- 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 a006c0e..92467c3 100644
--- 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;
-- 
2.30.0