This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ea317cc
)
reg_posixcc.t: Add tests for \v, \V, \h, \H
author
Karl Williamson
<public@khwilliamson.com>
Sun, 5 Feb 2012 00:44:56 +0000
(17:44 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Thu, 9 Feb 2012 17:13:58 +0000
(10:13 -0700)
t/re/reg_posixcc.t
patch
|
blob
|
blame
|
history
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 =~ /\[/;