#!/usr/bin/perl
use Test::More tests => 0x3004;
use strict;
use warnings;
no warnings 'syntax';
our ($VERSION) = q $Revision: 1.2 $ =~ /[\d.]+/g;
BEGIN {
use_ok ('Regexp::CharClasses')
};
my @left = qw !( [ < {!;
my @right = qw !) ] > }!;
my %left = map {($_ => 1)} @left;
my %right = map {($_ => 1)} @right;
foreach my $l (@left) {
ok $l =~ /^\p{IsLeftParen}$/, "Left paren $l";
ok $l =~ /^\p{IsParen}$/, "Paren $l";
}
foreach my $r (@right) {
ok $r =~ /^\p{IsRightParen}$/, "Right paren $r";
ok $r =~ /^\p{IsParen}$/, "Paren $r";
}
foreach my $c (0x00 .. 0x1000) {
my $char = chr $c;
my $h = sprintf "%04x" => $c;
ok $char =~ /^\P{IsLeftParen}$/, "\\x{$h} is not a left paren"
unless $left {$char};
ok $char =~ /^\P{IsRightParen}$/, "\\x{$h} is not a right paren"
unless $right {$char};
ok $char =~ /^\P{IsParen}$/, "\\x{$h} is not a paren"
unless $right {$char} || $left {$char};
}
__END__
$Log: 06_parenthesis.t,v $
Revision 1.2 2008/01/12 00:21:33 abigail
- Added $VERSION
- Added "no warnings 'syntax'"