BEGIN { use_ok('List::Index' => 'rangematch'); }
{
- my %options = (pagesize => 10, context => 5);
+ my %options = (pagesize => 10, context => 2);
# generate random test data
my @values;
@values = uniq @values;
# find ranges for generated values
- my $ranges = eval {
- my $index = List::Index->new(\@values);
- $index->ranges(\%options);
- };
+ my $ranges = eval { List::Index->new(\%options)->ranges(\@values) };
my $failure = $@ || ref $ranges ne 'ARRAY' && (
$ranges ? 'returned ranges not an array ref' : 'no ranges returned'
);