t/re/regex_sets.t: Add some tests

[perl5.git] / t / re / regex_sets.t

diff --git a/t/re/regex_sets.t b/t/re/regex_sets.t
index 5a9807e..cd5df00 100644 (file)
--- 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);
 # RT #126181: \cX behaves strangely inside (?[])
 {
        no warnings qw(syntax regexp);