git.shiar.nl
/
perl
/
list-index.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
require test dependencies in build script
[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'); }
{
BEGIN { use_ok('List::Index' => 'rangematch'); }
{
- my %options = (pagesize => 10, context =>
5
);
+ my %options = (pagesize => 10, context =>
2
);
# generate random test data
my @values;
# generate random test data
my @values;
@@
-26,10
+26,7
@@
BEGIN { use_ok('List::Index' => 'rangematch'); }
@values = uniq @values;
# find ranges for generated 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'
);
my $failure = $@ || ref $ranges ne 'ARRAY' && (
$ranges ? 'returned ranges not an array ref' : 'no ranges returned'
);