From: Karl Williamson <public@khwilliamson.com>
Date: Wed, 21 Dec 2011 16:57:43 +0000 (-0700)
Subject: t/re/re_tests: Add some tests
X-Git-Tag: v5.15.7~58
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/7a2d0cccd04300040746a3e2798cc6f921e7515b?hp=ed178f6581125ab23ce05f67c8bdf3cb8c91f6da

t/re/re_tests: Add some tests
---

diff --git a/t/re/re_tests b/t/re/re_tests
index 8002732..2077843 100644
--- a/t/re/re_tests
+++ b/t/re/re_tests
@@ -1551,12 +1551,17 @@ abc\N{def	-	c	-	\\N{NAME} must be resolved by the lexer
 /ffiffl/i	abcdef\x{FB03}\x{FB04}	y	$&	\x{FB03}\x{FB04}
 /\xdf\xdf/ui	abcdefssss	y	$&	ssss
 
+/st/i	\x{DF}\x{FB05}	y	$&	\x{FB05}
+/ssst/i	\x{DF}\x{FB05}	y	$&	\x{DF}\x{FB05}
+
 # [perl #101970]
 /[[:lower:]]/i	\x{100}	y	$&	\x{100}
 /[[:upper:]]/i	\x{101}	y	$&	\x{101}
 
 # Was matching 'ss' only and failing the entire match, not seeing the
 # alternative that would succeed
-/s\xDF/ui	\xDFs	yT	$&	\xDFs
+/s\xDF/ui	\xDFs	Ty	$&	\xDFs
+/sst/ui	s\N{LATIN SMALL LIGATURE ST}	Ty	$&	s\N{LATIN SMALL LIGATURE ST}
+/sst/ui	s\N{LATIN SMALL LIGATURE LONG S T}	Ty	$&	s\N{LATIN SMALL LIGATURE LONG S T}
 
 # vim: softtabstop=0 noexpandtab