t/10-ranges.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 9;
   6 use Test::NoWarnings;
   7 use Data::Dump 'pp';
   8
   9 BEGIN { use_ok('List::Index'); }
  10 ok(eval { List::Index->VERSION(1) }, 'version 1.00 compatibility');
  11
  12 subtest 'single-char alphabet' => sub {
  13         plan tests => 4;
  14         my @uniform = 'a'..'z';
  15         my $index = List::Index->new(\@uniform) or return;
  16         is_deeply(\@uniform, ['a'..'z'], 'original data unaltered');
  17         is_deeply($index->ranges, ['-'], 'single page');
  18         is_deeply($index->ranges({pages => 3}), [qw(-i j-q r-)], 'given pages');
  19         is_deeply($index->ranges({pagesize => @uniform / 2.1}), [qw(
  20                 -i j-q r-
  21         )], 'equivalent pagesize');
  22 };
  23
  24 subtest 'uniform alphanumeric' => sub {
  25         plan tests => 2;
  26         my $index = List::Index->new(['aa'..'zz', 1..202]) or return;
  27         is_deeply($index->ranges, [qw(
  28                 -.
  29                 .-bp bq-dm dn-fi fj-hf hg-i j-k l-m n-os ot-qp qq-sm sn-uj uk-wf wg-x y-
  30
  31         )], 'default ranges');
  32         is_deeply($index->ranges({pagesize => 300}), [qw(-c d-n o-)], 'large pagesize');
  33 };
  34
  35 subtest 'context' => sub {
  36         plan tests => 9;
  37         my $index = List::Index->new([qw(
  38                 kkeg kl km kmlu knsy    koxb kpeo kuaa kuab kuac
  39                 kuapa kuq kur kux kzb   lc lg lgu lgua lguc
  40                 lguq lgur lgws lgx lka  lkq lks lln llq llx
  41         )]) or return;
  42         is_deeply(
  43                 $index->ranges({ pagesize=>10, context=>0, length=>5 }),
  44                 # ranges should match offsets exactly
  45                 [qw(-kuap. kuapa-lgup lguq-)],
  46                 'no context'
  47         );
  48         is_deeply(
  49                 $index->ranges({ pagesize=>10, context=>0 }),
  50                 # default length limits to 4 chars
  51                 [qw(-kuao kuap-lgup lguq-)],
  52                 'default length'
  53         );
  54         is_deeply(
  55                 $index->ranges({ pagesize=>10, context=>1 }),
  56                 # lookbehinds aren't shorter (kuac<kuap, lguc<lguq)
  57                 # 'kuap' can advance to 'kuq'
  58                 [qw(-kup kuq-lgup lguq-)],
  59                 'lookahead'
  60         );
  61 TODO: {
  62         local $TODO = 'backtrack';
  63         is_deeply(
  64                 $index->ranges({ pagesize=>10, context=>2 }),
  65                 # allowed to advance to 'kur', but provides no benefits over 'kuq'
  66                 [qw(-kup kuq-lgup lguq-)],
  67                 'minimal lookahead'
  68         );
  69 }
  70         is_deeply(
  71                 $index->ranges({ pagesize=>10, context=>3 }),
  72                 # shorten 'kuap' to 'ku' because lookbehind is 'kp...'
  73                 # 'lguq' matches 'lg', but may only backtrack to 'lgu'
  74                 [qw(-kt ku-lgt lgu-)],
  75                 'lookbehind'
  76         );
  77         is_deeply(
  78                 $index->ranges({ pagesize=>10, context=>4 }),
  79                 [qw(-kt ku-lf lg-)],
  80                 'maximal lookahead'
  81         );
  82         is_deeply(
  83                 $index->ranges({ pagesize=>10, context=>5 }),
  84                 # after forwarding 'kuap' to 'lc'
  85                 # disallow backtracking of 'lguq' to 'lc' to prevent qw[-k l-]
  86                 # so only lookahead (to 'lkq') remains
  87                 [qw(-k l-lj lk-)],
  88                 'lookbehind forbidden'
  89         );
  90         is_deeply(
  91                 $index->ranges({ pagesize=>10, context=>9 }),
  92                 # allow a single (10-9) entry (l-lf = lc) to remain
  93                 [qw(-k l-lf lg-)],
  94                 'lookbehind penalty'
  95         );
  96         is_deeply(
  97                 $index->ranges({ pagesize=>10, context=>10 }),
  98                 # allow the last page to go back upto 'lc', replacing the 2nd page
  99                 [qw(-k l-)],
 100                 'full overlap'
 101         );
 102 };
 103
 104 subtest 'distribution' => sub {
 105         plan tests => 2;
 106         my $index = List::Index->new([qw(
 107                 gnihka gniub go gsearnrqns gtdvcxyt gw gwoufolwcvmtueyg gysgphci h habkdgifjfxoh
 108                 hbbvjf hbqleexnqts hccg hd hdoeqwdmgqwaoya hfbegicieuxz hfm hj hkoysmws hmylu
 109                 hnvtvpievbdlkrmb hs hvdvcqn hvn hyrybeur iaiaab ib ibavqyar idfniqvxpohbk idh
 110         )]) or return;
 111         is_deeply(
 112                 $index->ranges({ pagesize=>10, context=>8 }),
 113                 [qw(-g h i-)],
 114                 'large context'
 115         );
 116         is_deeply(
 117                 $index->ranges({ pagesize=>10, context=>7 }),
 118                 # after 2nd page is enlarged by lookbehind to 'h', limit subsequent lookahead
 119                 # to prevent the page from getting too large (17 entries if forwarded to 'i')
 120                 [qw(-g h-hm hn-)],
 121                 'lookahead penalty'
 122         );
 123         # page #14 [gn-g] (8): gnihka gniub go gsearnrqns gtdvcxyt gwawkvmueovdjtfj gwoufolwcvmtueyg gysgphci
 124         # page #15 [h] (17): h habkdgifjfxoh hbbvjf hbqleexnqts hccgszftbaymfu hdaqzkow hdoeqwdmgqwaoya hfbegicieu hfmlpzzioqjbthz hj hkoysmws hmylu hnvtvpievbdlkrmb hsodfpkatk hvdvcqn hvn hyrybeurqtevjfmi
 125         # page #16 [i-ie] (5): i iaab ibiavqyar idfniqvxpohbk idh
 126 };
 127
 128 subtest 'modulo' => sub {
 129         plan tests => 2;
 130         my $index = List::Index->new([qw(
 131                 a b ccb   ccd  cce gf gg   gh  i j
 132         )]) or return;
 133         # 10 entries at 4 per page requires 3 pages
 134         # so actual target page sizes should be 3,4,3 (not 4,4,2)
 135
 136         is_deeply(
 137                 $index->ranges({ pagesize=>4, context=>0 }),
 138                 [qw(-ccc ccd-gg gh-)],
 139                 'uniform page sizes'
 140         );
 141 { local $TODO = 'early lookbehind causing [c-gg]';
 142         is_deeply(
 143                 $index->ranges({ pagesize=>4, context=>1 }),
 144                 [qw(-b c-h i-)],
 145                 'context at new intervals'
 146         );
 147 }
 148 };
 149
 150 subtest 'context' => sub {
 151         plan tests => 4;
 152         my $index = List::Index->new([qw(
 153                 baa1 baa2  baa3 baaa  bbc cbc  daaa ea  eaaa zed
 154         )]) or return;
 155         is_deeply($index->ranges({pagesize => 2, context => 0}), [
 156                 qw(-baa. baa.-bbb bbc-daa. daaa-eaa. eaaa-)
 157         ], 'no context');
 158         is_deeply($index->ranges({pagesize => 2}), [
 159                 qw(-a b c d e-)
 160         ], 'default context');  # context should be 1
 161         is_deeply($index->ranges({pagesize => 2, context => 2}), [
 162                 qw(-a b-c d e-)
 163         ], 'overlap');  # first item equals second due to large context
 164         is_deeply($index->ranges({pagesize => 2, context => 0, length => 1}), [
 165                 qw(-a b-c d e-)
 166         ], 'single char');
 167
 168         #pp($index->ranges({pagesize => 2, context => 2, length => 1}));
 169 };
 170