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
fix rangematch('zz-')
[perl/list-index.git]
/
t
/
20-links.t
diff --git
a/t/20-links.t
b/t/20-links.t
index d9ab338c50cc7a9776424da9b049a43aa152538b..afa2b7bc186d0e4b6572ef874700ee61b8d86706 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
8
;
+use Test::More tests => 2
9
;
use Test::NoWarnings;
use Data::Dump 'pp';
use Test::NoWarnings;
use Data::Dump 'pp';
@@
-17,6
+17,7
@@
for (
[ -qqq => '(?:(?![q-z])|q(?![q-z])|qq(?![q-z])|qqq)'],
[ 'q-' => '[q-z]'],
['qqq-' => '(?:[r-z]|q[r-z]|qq[q-z])'],
[ -qqq => '(?:(?![q-z])|q(?![q-z])|qq(?![q-z])|qqq)'],
[ 'q-' => '[q-z]'],
['qqq-' => '(?:[r-z]|q[r-z]|qq[q-z])'],
+ ['zzz-' => 'zz[z-z]'],
[ 'q-x' => '[q-x]'],
[ 'q-q' => 'q'],
[ 'qq-qq' => 'qq'],
[ 'q-x' => '[q-x]'],
[ 'q-q' => 'q'],
[ 'qq-qq' => 'qq'],
@@
-45,3
+46,4
@@
for my $in (
) {
is(eval { rangematch($in) }, undef, (length $in ? $in : q{''}) . ' failure');
}
) {
is(eval { rangematch($in) }, undef, (length $in ? $in : q{''}) . ' failure');
}
+