t/10-ranges.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 7;
   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 => 4;
  37         my $index = List::Index->new([qw(
  38                 baa1 baa2  baa3 baaa  bbc cbc  daaa ea  eaaa zed
  39         )]) or return;
  40         is_deeply($index->ranges({pagesize => 2, context => 0}), [
  41                 qw(-baa. baa.-bbb bbc-daa. daaa-eaa. eaaa-)
  42         ], 'no context');
  43         is_deeply($index->ranges({pagesize => 2}), [
  44                 qw(-a b c d e-)
  45         ], 'default context');  # context should be 1
  46         is_deeply($index->ranges({pagesize => 2, context => 2}), [
  47                 qw(-a b-c d e-)
  48         ], 'overlap');  # first item equals second due to large context
  49         is_deeply($index->ranges({pagesize => 2, context => 0, length => 1}), [
  50                 qw(-a b-c d e-)
  51         ], 'single char');
  52
  53         #pp($index->ranges({pagesize => 2, context => 2, length => 1}));
  54 };
  55
  56 subtest 'distribution' => sub {
  57         plan tests => 2;
  58         my $index = List::Index->new([qw(
  59                 kkeg kl km kmlu knsy    koxb kpeo kuaa kuab kuac
  60                 kuap kuaq kuq kux kzb   lc lg lgu lgua lguc
  61                 lguq lgur lgus lgx lka  lkq lks lln llq llx
  62         )]) or return;
  63 TODO: {
  64         local $TODO = 'under development';
  65         is_deeply(
  66                 $index->ranges({ pagesize=>10, context=>3 }),
  67                 # shorten 'kuap' to 'ku' because lookbehind is 'kp...'
  68                 # 'lguq' matches 'lg', but may only backtrack to 'lgu'
  69                 [qw(-kt ku-lgt lgu-)],
  70                 'lookbehind'
  71         );
  72 }
  73         is_deeply(
  74                 $index->ranges({ pagesize=>10, context=>4 }),
  75                 [qw(-kt ku-lf lg-)],
  76                 'maximal lookahead'
  77         );
  78 }
  79