fix rangematch('zz-')

[perl/list-index.git] / t / 20-links.t

diff --git a/t/20-links.t b/t/20-links.t
index b1879e3abdc85b9ffec5603004f6f33e6a791d5e..afa2b7bc186d0e4b6572ef874700ee61b8d86706 100644 (file)
--- a/t/20-links.t
+++ b/t/20-links.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 28;
+use Test::More tests => 29;
 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])'],
+       ['zzz-'    =>                 'zz[z-z]'],
        [  'q-x'   =>    '[q-x]'],
        [  'q-q'   =>          'q'],
        [ 'qq-qq'  =>                 'qq'],