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
XXX: omit range end if it equals start
[perl/list-index.git]
/
t
/
20-links.t
diff --git
a/t/20-links.t
b/t/20-links.t
index f8f462da980cd10ad329326a31de19d7263ef427..d9ab338c50cc7a9776424da9b049a43aa152538b 100644
(file)
--- a/
t/20-links.t
+++ b/
t/20-links.t
@@
-2,7
+2,7
@@
use strict;
use warnings;
use strict;
use warnings;
-use Test::More tests => 2
2
;
+use Test::More tests => 2
8
;
use Test::NoWarnings;
use Data::Dump 'pp';
use Test::NoWarnings;
use Data::Dump 'pp';
@@
-11,6
+11,8
@@
BEGIN { use_ok('List::Index' => 'rangematch'); }
for (
[ q => 'q'],
['#foo.!$' => '\#foo\.\!\$'],
for (
[ q => 'q'],
['#foo.!$' => '\#foo\.\!\$'],
+ [ '-' => ''],
+ [ '' => ''],
[ -q => '(?:(?![q-z])|q)'],
[ -qqq => '(?:(?![q-z])|q(?![q-z])|qq(?![q-z])|qqq)'],
[ 'q-' => '[q-z]'],
[ -q => '(?:(?![q-z])|q)'],
[ -qqq => '(?:(?![q-z])|q(?![q-z])|qq(?![q-z])|qqq)'],
[ 'q-' => '[q-z]'],
@@
-31,7
+33,15
@@
for (
['qqq-q' => '(?:q[r-z]|qq[q-z])'],
) {
my ($in, $out) = @$_;
['qqq-q' => '(?:q[r-z]|qq[q-z])'],
) {
my ($in, $out) = @$_;
- is(eval { rangematch($in) }, "(?i-xsm:^$out)",
$in
);
+ is(eval { rangematch($in) }, "(?i-xsm:^$out)",
(length $in ? $in : q{''})
);
diag($@) if $@;
}
diag($@) if $@;
}
+for my $in (
+ 'qqq-qc',
+ 'x-q',
+ 'xxx-qqq',
+ 'xxx-q',
+) {
+ is(eval { rangematch($in) }, undef, (length $in ? $in : q{''}) . ' failure');
+}