X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3dbc6af5bbf573b8a656c27f7beffd8e552ccd64..2d1a1cb30ceaba6da87dcbf82ecae272ec26e9c5:/t/re/regex_sets.t

diff --git a/t/re/regex_sets.t b/t/re/regex_sets.t
index 5a9807e..cd5df00 100644
--- a/t/re/regex_sets.t
+++ b/t/re/regex_sets.t
@@ -139,6 +139,17 @@ if (! is_miniperl() && locales_enabled('LC_CTYPE')) {
     }
 }
 
+# Tests that no warnings given for valid Unicode digit range.
+my $arabic_digits = qr/(?[ [ Ù  - Ù© ] ])/;
+for my $char ("Ù ", "Ù¥", "Ù©") {
+    use charnames ();
+    my @got = capture_warnings(sub {
+                like("Ù ", $arabic_digits, "Matches "
+                                                . charnames::viacode(ord $char));
+            });
+    is (@got, 0, "... without warnings");
+}
+
 # RT #126181: \cX behaves strangely inside (?[])
 {
 	no warnings qw(syntax regexp);