reg_posixcc.t: Add tests for \v, \V, \h, \H
authorKarl Williamson <public@khwilliamson.com>
Sun, 5 Feb 2012 00:44:56 +0000 (17:44 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 9 Feb 2012 17:13:58 +0000 (10:13 -0700)
t/re/reg_posixcc.t

index d37411b..29364bc 100644 (file)
@@ -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 =~ /\[/;