#endif /* EBCDIC POSIX-BC */
/* Generated from:
- * 0bca60a25eb4ccf2e04f50446db5f882322f50a9c61dc57bb806ccfc9b2e26a4 lib/Unicode/UCD.pm
+ * 40444e5cd670b57be97020416a80439abe6d08dc75b4fd29745894749183e9a0 lib/Unicode/UCD.pm
* ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
* 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
* 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt
no warnings 'surrogate'; # surrogates can be inputs to this
use charnames ();
-our $VERSION = '0.62';
+our $VERSION = '0.63';
require Exporter;
elsif (exists $BLOCKS{$arg}) {
return _dclone $BLOCKS{$arg};
}
+
+ carp __PACKAGE__, "::charblock: unknown code '$arg'";
+ return;
}
=head2 B<charscript()>
return _dclone $SCRIPTS{$arg};
}
+ carp __PACKAGE__, "::charscript: unknown code '$arg'";
return;
}
is(charscript(0x590), $unknown_script, "0x0590 - Hebrew unused charscript") if $v_unicode_version gt v3.0.1;
is(charblock(0x1FFFF), "No_Block", "0x1FFFF - unused charblock");
+{
+ my @warnings;
+ local $SIG{__WARN__} = sub { push @warnings, @_ };
+ is(charblock(chr(0x6237)), undef,
+ "Verify charblock of non-code point returns <undef>");
+ cmp_ok(scalar @warnings, '==', 1, " ... and generates 1 warning");
+ like($warnings[0], qr/unknown code/, " ... with the right text");
+}
+
my $fraction_3_4_code = sprintf("%04X", utf8::unicode_to_native(0xbe));
$cp = $fraction_3_4_code;
$charinfo = charinfo($fraction_3_4_code);
SKIP:
{
skip("Script property not in this release", 3) if $v_unicode_version lt v3.1.0;
+
+ {
+ my @warnings;
+ local $SIG{__WARN__} = sub { push @warnings, @_ };
+ is(charscript(chr(0x6237)), undef,
+ "Verify charscript of non-code point returns <undef>");
+ cmp_ok(scalar @warnings, '==', 1, " ... and generates 1 warning");
+ like($warnings[0], qr/unknown code/, " ... with the right text");
+ }
+
my $r1 = charscript('Latin');
if (ok(defined $r1, "Found Latin script")) {
skip("Latin range count will be wrong when using older Unicode release",
- 2) if $v_unicode_version lt $expected_version;
+ 2) if $current_version lt $expected_version;
my $n1 = @$r1;
is($n1, 31, "number of ranges in Latin script (Unicode $expected_version)") if $::IS_ASCII;
shift @$r1 while @$r1;
#endif /* H_REGCHARCLASS */
/* Generated from:
- * 0bca60a25eb4ccf2e04f50446db5f882322f50a9c61dc57bb806ccfc9b2e26a4 lib/Unicode/UCD.pm
+ * 40444e5cd670b57be97020416a80439abe6d08dc75b4fd29745894749183e9a0 lib/Unicode/UCD.pm
* ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
* 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
* 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt