5 use Test::More tests => 16;
9 BEGIN { use_ok('List::Index'); }
10 ok(eval { List::Index->VERSION(1) }, 'version 1.00 compatibility');
13 my @uniform = 'a'..'z';
14 ok(my $index = List::Index->new(\@uniform), 'object (single-char values)');
15 is_deeply(\@uniform, ['a'..'z'], 'original data unaltered');
16 is_deeply($index->ranges, ['-'], 'single page');
17 is_deeply($index->ranges({pages => 3}), [qw(-i j-q r-)], 'given pages');
18 is_deeply($index->ranges({pagesize => @uniform / 2.1}), [qw(
20 )], 'equivalent pagesize');
24 ok(my $index = List::Index->new(['aa'..'zz', 1..202]), 'non-alphabetic values (uniform)');
25 is_deeply($index->ranges, [qw(
27 .-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-
29 )], 'default ranges');
30 is_deeply($index->ranges({pagesize => 300}), [qw(-c d-o p-)], 'large pagesize');
34 ok(my $index = List::Index->new([qw(
35 baa1 baa2 baa3 baaa bbc cbc daaa ea eaaa zed
36 )]), 'variable length values');
37 is_deeply($index->ranges({pagesize => 2, context => 0}), [
38 qw(-baa. baa.-bbb bbc-daa. daaa-eaa. eaaa-)
40 is_deeply($index->ranges({pagesize => 2}), [
42 ], 'default context'); # context should be 1
43 is_deeply($index->ranges({pagesize => 2, context => 2}), [
45 ], 'overlap'); # first item equals second due to large context
46 is_deeply($index->ranges({pagesize => 2, length => 1}), [
50 #pp($index->ranges({pagesize => 2, context => 2, length => 1}));