This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Script Run: Scripts couldn't start with Common
[perl5.git] / t / re / script_run.t
index be38479..318e125 100644 (file)
@@ -17,7 +17,7 @@ $|=1;
 
 no warnings "experimental::script_run";
 
-my $script_run = qr/ (+script_run: ^ .+ $ ) /x;
+my $script_run = qr/ ^ (+script_run: .+ ) $ /x;
 
 unlike("\N{CYRILLIC SMALL LETTER ER}\N{CYRILLIC SMALL LETTER A}\N{CYRILLIC SMALL LETTER U}}\N{CYRILLIC SMALL LETTER ER}\N{CYRILLIC SMALL LETTER A}l", $script_run, "Cyrillic 'paypal' with a Latin 'l' is not a script run");
 unlike("A\N{GREEK CAPITAL LETTER GAMMA}", $script_run, "Latin followed by Greek isn't a script run");
@@ -40,6 +40,7 @@ like("\N{ARABIC-INDIC DIGIT ZERO}\N{ARABIC-INDIC DIGIT ONE}\N{ARABIC-INDIC DIGIT
 # writing (U+02B9/02BA).
 like("abc\N{MODIFIER LETTER SMALL Y}", $script_run, "All Latin is a script run");
 like("abc\N{MODIFIER LETTER PRIME}", $script_run, "Latin then Common is a script run");
+like(":a", $script_run, "Common then Latin is a script run");
 like("\N{HEBREW LETTER ALEF}\N{HEBREW LETTER TAV}\N{MODIFIER LETTER PRIME}", $script_run, "Hebrew then Common is a script run");
 unlike("\N{HEBREW LETTER ALEF}\N{HEBREW LETTER TAV}\N{MODIFIER LETTER SMALL Y}", $script_run, "Hebrew then Latin isn't a script run");
 like("9876543210\N{DESERET SMALL LETTER WU}", $script_run, "0-9 are the digits for Deseret");