rethink method parameters: options to new(), data to ranges()
[perl/list-index.git] / t / 25-apply.t
index 92467c3d327860fc7bf59fea8fd4056d1ff1a218..c06ae0645e2141ea075ac9eda26552936aa00b2a 100644 (file)
@@ -26,10 +26,7 @@ BEGIN { use_ok('List::Index' => 'rangematch'); }
        @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'
        );