5 use Test::More tests => 6;
9 BEGIN { use_ok('List::Index'); }
10 ok(eval { List::Index->VERSION(1) }, 'version 1.00 compatibility');
12 subtest 'single-char alphabet' => sub {
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(
21 )], 'equivalent pagesize');
24 subtest 'uniform alphanumeric' => sub {
26 my $index = List::Index->new(['aa'..'zz', 1..202]) or return;
27 is_deeply($index->ranges, [qw(
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-
31 )], 'default ranges');
32 is_deeply($index->ranges({pagesize => 300}), [qw(-c d-o p-)], 'large pagesize');
35 subtest 'context' => sub {
37 my $index = List::Index->new([qw(
38 baa1 baa2 baa3 baaa bbc cbc daaa ea eaaa zed
40 is_deeply($index->ranges({pagesize => 2, context => 0}), [
41 qw(-baa. baa.-bbb bbc-daa. daaa-eaa. eaaa-)
43 is_deeply($index->ranges({pagesize => 2}), [
45 ], 'default context'); # context should be 1
46 is_deeply($index->ranges({pagesize => 2, context => 2}), [
48 ], 'overlap'); # first item equals second due to large context
49 is_deeply($index->ranges({pagesize => 2, length => 1}), [
53 #pp($index->ranges({pagesize => 2, context => 2, length => 1}));