TODO tests for reads from a scalar changed to upgraded after open

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

diff --git a/t/re/reg_posixcc.t b/t/re/reg_posixcc.t
index d37411b..29364bc 100644 (file)
--- a/t/re/reg_posixcc.t
+++ b/t/re/reg_posixcc.t
@@ -17,6 +17,10 @@ my @pats=(
            "\\S",
            "\\d",
            "\\D",
+            "\\h",
+           "\\H",
+            "\\v",
+           "\\V",
            "[:alnum:]",
            "[:^alnum:]",
            "[:alpha:]",
@@ -98,7 +102,7 @@ while (@pats) {
             $got{"[^$yes]"}{$type} = $str=~/[^$yes]/ ? 1 : 0;
             $got{"[^$no]"}{$type} = $str=~/[^$no]/ ? 1 : 0;
 
-            # For \w, \s, and \d, also test without being in character
+            # For \w, \s, and \d, \h, \v, also test without being in character
             # classes.
             next if $yes =~ /\[/;