diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-02-04 17:44:56 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-02-09 10:13:58 -0700 |
| commit | 6e80eb23173ade6bdf9d6da43c067fa77e9162a5 (patch) | |
| tree | b0f76100dbad4afc9edd24ae4222090dd2bd2a40 /t | |
| parent | ea317ccb31f6a2617f030e911668f46874f7dacb (diff) | |
| download | perl-6e80eb23173ade6bdf9d6da43c067fa77e9162a5.tar.gz | |
reg_posixcc.t: Add tests for \v, \V, \h, \H
Diffstat (limited to 't')
| -rw-r--r-- | t/re/reg_posixcc.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/re/reg_posixcc.t b/t/re/reg_posixcc.t index d37411be38..29364bc30d 100644 --- 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 =~ /\[/; |