rethink method parameters: options to new(), data to ranges()

[perl/list-index.git] / t / 25-apply.t

diff --git a/t/25-apply.t b/t/25-apply.t
index a006c0e3bb4a0c59244450916f3d07de0987cb52..c06ae0645e2141ea075ac9eda26552936aa00b2a 100644 (file)
--- a/t/25-apply.t
+++ b/t/25-apply.t
@@ -11,7 +11,7 @@ use List::MoreUtils qw(uniq firstidx);
 BEGIN { use_ok('List::Index' => 'rangematch'); }
 
 {
-       my %options = (pagesize => 10, context => 5);
+       my %options = (pagesize => 10, context => 2);
 
        # generate random test data
        my @values;
@@ -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'
        );