diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-09-06 00:29:45 +0300 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-09-06 00:35:15 +0000 |
| commit | 98fbe98930ddfea1c62d93ddeb877f51263c4d25 (patch) | |
| tree | 031776f0298e5f4934836a81c7dabab076012a45 /t/uni/class.t | |
| parent | 85c3142dc721254f0ad6b78e1d67d47cfdd317eb (diff) | |
| download | perl-98fbe98930ddfea1c62d93ddeb877f51263c4d25.tar.gz | |
UCD 5.0.0
Message-ID: <44FDC219.8010006@iki.fi>
p4raw-id: //depot/perl@28788
Diffstat (limited to 't/uni/class.t')
| -rw-r--r-- | t/uni/class.t | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/t/uni/class.t b/t/uni/class.t index 225b77030d..c4b599bde0 100644 --- a/t/uni/class.t +++ b/t/uni/class.t @@ -4,7 +4,7 @@ BEGIN { require "test.pl"; } -plan tests => 4670; +plan tests => 4784; sub MyUniClass { <<END; @@ -159,7 +159,10 @@ for my $p ('gc', 'sc') { for my $y ($abbr, $utf8::PropValueAlias{$p}{$abbr}, $utf8::PVA_abbr_map{gc_sc}{$abbr}) { is($str =~ /(\p{$x: $y}+)/ && $1, substr($str, 0, -1)); is($str =~ /(\P{$x= $y}+)/ && $1, substr($str, -1)); - test_regexp ($str, $y); + SKIP: { + skip("surrogate", 1) if $abbr eq 'cs'; + test_regexp ($str, $y); + } } } } @@ -221,8 +224,11 @@ for (grep $utf8::Canonical{$_} =~ /^In/, keys %utf8::Canonical) { my $blk = $_; - test_regexp ($str, $blk); - $blk =~ s/^In/Block:/; - test_regexp ($str, $blk); + SKIP: { + skip($blk, 2) if $blk =~ /surrogates/i; + test_regexp ($str, $blk); + $blk =~ s/^In/Block:/; + test_regexp ($str, $blk); + } } |