From 3e2d0470d99683367de89a9ad4569247d3897355 Mon Sep 17 00:00:00 2001 From: Mischa POSLAWSKY Date: Sat, 14 Nov 2009 20:00:16 +0100 Subject: [PATCH] ++: distribution tests --- t/10-ranges.t | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/t/10-ranges.t b/t/10-ranges.t index 55df649..f935820 100644 --- a/t/10-ranges.t +++ b/t/10-ranges.t @@ -56,18 +56,18 @@ subtest 'context' => sub { subtest 'distribution' => sub { plan tests => 2; my $index = List::Index->new([qw( - kkeg kl km kmlu knsy koxb kpeo kqbt krzu ktyp - kuap kuy kvbc kyy kzb lc lg lgaa lgbv lgbw - lgu lij ljr ljs lka lkq lks lln llq llx + kkeg kl km kmlu knsy koxb kpeo kuaa kuab kuac + kuap kuaq kuq kux kzb lc lg lgu lgua lguc + lguq lgur lgus lgx lka lkq lks lln llq llx )]) or return; TODO: { local $TODO = 'under development'; is_deeply( - $index->ranges({ pagesize=>10, context=>5 }), - # after 'kuap' forwards to 'kzb', 'lgu' shouldn't go back to 'lc' - # otherwise we get qw[-k l-] - [qw(-k l-lg lgu-)], - 'lookbehind after full lookahead' + $index->ranges({ pagesize=>10, context=>3 }), + # shorten 'kuap' to 'ku' because lookbehind is 'kp...' + # 'lguq' matches 'lg', but may only backtrack to 'lgu' + [qw(-kt ku-lgt lgu-)], + 'lookbehind' ); } is_deeply( -- 2.30.0