X-Git-Url: http://git.shiar.net/perl/list-index.git/blobdiff_plain/cfc00067daf415f2bb92a22a307d7f840508ee54..1c9de66914ea7bf8525df6f5285b649c006477b9:/t/20-links.t

diff --git a/t/20-links.t b/t/20-links.t
index 1ae7d4a..6843205 100644
--- a/t/20-links.t
+++ b/t/20-links.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 30;
+use Test::More tests => 47;
 use Test::NoWarnings;
 use Data::Dump 'pp';
 
@@ -45,6 +45,30 @@ my @RANGETESTS = (
 	['xxx-qqq' => undef],
 	['xxx-q'   => undef],
 	['qqq-qc'  => undef],
+
+	# non-alphabetic offset
+	[  '.-'    =>          ''],
+	['...-'    => '(?:[a-z]|[^a-z][a-z])'],
+	[ '.q-'    => '(?:[a-z]|[^a-z][q-z])'],
+	[ '.q-.'   =>          '[^a-z][q-z]'],
+	# limit
+	['.q.-q'   => '(?:[a-q]|[^a-z][q-z])'],
+	['..z-q'   => '(?:[a-q]|[^a-z][a-z]|[^a-z][^a-z][z-z])'],
+	['.q.-z'   => '(?:[a-z]|[^a-z][q-z])'],
+	['.q.-zz'  => '(?:[a-y]|[^a-z][q-z]|'        .       'z(?![z-z])|zz)'],
+	['.q..-zz' => '(?:[a-y]|[^a-z][r-z]|[^a-z]q' . '[a-z]|z(?![z-z])|zz)'],
+	# non-alpha limit
+	['.q.-z.'  => '(?:[a-y]|[^a-z][q-z]|'        .       'z(?![a-z]))'],
+	[ '..-.'   =>                                '(?:[^a-z](?![a-z]))'],
+	[  '.-.'   =>                                         '(?![a-z])'],
+	[   '-.'   =>                                         '(?![a-z])'],
+	[   '-...' =>                                         '(?![a-z])(?!.[a-z])(?!..[a-z])'],
+	[   '-q.'  =>                           '(?:(?![q-z])|q(?![a-z]))'],
+	[   '-q..' =>                           '(?:(?![q-z])|q(?![a-z])(?!.[a-z]))'],
+#	[ '..-...' =>                                '(?:[^a-z](?![a-z])|[^a-z][^a-z](?![a-z]))'],
+#	[  '.-...' =>                                                   '[^a-z][^a-z](?![a-z])'],
+	#
+	[  'a-.'   => undef],
 );
 
 for (@RANGETESTS) {