diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-03-06 09:51:18 -0700 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-03-06 10:34:10 -0700 |
commit | 1e50d6125fdc9123dcd77914cdbe889a2a88deb5 (patch) | |
tree | 8e9626b101ac2a159362f094f3b51167c59d9ddb /t/re/charset.t | |
parent | 7b98b8576678664fb7a9c70a6ff65b3a61018441 (diff) | |
download | perl-1e50d6125fdc9123dcd77914cdbe889a2a88deb5.tar.gz |
charset.t: Group tests by complement/non-
This is in preparation for giving different descriptions for the
complement case
Diffstat (limited to 't/re/charset.t')
-rw-r--r-- | t/re/charset.t | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/t/re/charset.t b/t/re/charset.t index dfc7bc0a8e..f40783151e 100644 --- a/t/re/charset.t +++ b/t/re/charset.t @@ -129,8 +129,12 @@ foreach my $charset (@charsets) { # than one item to match. foreach my $eval ( qq[my \$a = "$char"; $upgrade\$a $op qr/ (?$charset: $lb$class$rb ) /x], - qq[my \$a = "$char"; $upgrade\$a $neg_op qr/ (?$charset: $lb$complement$rb ) /x], qq[my \$a = "$char" x $length; $upgrade\$a $op qr/ (?$charset: $lb$class$rb\{$length} ) /x], + ) { + ok (eval $eval, $eval . $reason); + } + foreach my $eval ( + qq[my \$a = "$char"; $upgrade\$a $neg_op qr/ (?$charset: $lb$complement$rb ) /x], qq[my \$a = "$char" x $length; $upgrade\$a $neg_op qr/ (?$charset: $lb$complement$rb\{$length} ) /x], ) { ok (eval $eval, $eval . $reason); @@ -143,6 +147,10 @@ foreach my $charset (@charsets) { foreach my $eval ( qq[my \$a = "$char"; $upgrade\$a $op qr/ (?$charset: ^ \\b . ) /x], qq[my \$a = "$char"; $upgrade\$a $op qr/ (?$charset: . \\b \$) /x], + ) { + ok (eval $eval, $eval . $reason); + } + foreach my $eval ( qq[my \$a = "$char"; $upgrade\$a $neg_op qr/(?$charset: ^ \\B . ) /x], qq[my \$a = "$char"; $upgrade\$a $neg_op qr/(?$charset: . \\B \$ ) /x], ) { @@ -162,6 +170,10 @@ foreach my $charset (@charsets) { foreach my $eval ( qq[my \$a = "$space$char"; $upgrade\$a $op qr/ (?$charset: . \\b . ) /x], qq[my \$a = "$char$space"; $upgrade\$a $op qr/ (?$charset: . \\b . ) /x], + ) { + ok (eval $eval, $eval . $reason . "; \"$space\" is not a \\w"); + } + foreach my $eval ( qq[my \$a = "$space$char"; $upgrade\$a $neg_op qr/ (?$charset: . \\B . ) /x], qq[my \$a = "$char$space"; $upgrade\$a $neg_op qr/ (?$charset: . \\B . ) /x], ) { @@ -205,6 +217,10 @@ foreach my $charset (@charsets) { foreach my $eval ( qq[my \$a = "$other$char"; $upgrade\$a $op qr/ (?$charset: $other \\b $char ) /x], qq[my \$a = "$char$other"; $upgrade\$a $op qr/ (?$charset: $char \\b $other ) /x], + ) { + ok (eval $eval, $eval . $both_reason); + } + foreach my $eval ( qq[my \$a = "$other$char"; $upgrade\$a $neg_op qr/ (?$charset: $other \\B $char ) /x], qq[my \$a = "$char$other"; $upgrade\$a $neg_op qr/ (?$charset: $char \\B $other ) /x], ) { @@ -219,6 +235,10 @@ foreach my $charset (@charsets) { foreach my $eval ( qq[my \$a = "$other$char"; $upgrade\$a $op qr/ (?$charset: \\b $char ) /x], qq[my \$a = "$char$other"; $upgrade\$a $op qr/ (?$charset: \\b $other ) /x], + ) { + ok (eval $eval, $eval . $both_reason); + } + foreach my $eval ( qq[my \$a = "$other$char"; $upgrade\$a $neg_op qr/ (?$charset: \\B $char ) /x], qq[my \$a = "$char$other"; $upgrade\$a $neg_op qr/ (?$charset: \\B $other ) /x], ) { |