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 7cb4d52..318e125 100644 (file)
@@ -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");