is($bt->{L}, 'Left-to-Right', 'L is Left-to-Right');
is($bt->{AL}, 'Right-to-Left Arabic', 'AL is Right-to-Left Arabic');
-is(Unicode::UCD::UnicodeVersion, '5.0.0', 'UnicodeVersion');
+is(Unicode::UCD::UnicodeVersion, '5.1.0', 'UnicodeVersion');
use Unicode::UCD qw(compexcl);
{
my $r1 = charscript('Latin');
my $n1 = @$r1;
- is($n1, 35, "number of ranges in Latin script (Unicode 5.0.0)");
+ is($n1, 42, "number of ranges in Latin script (Unicode 5.0.0)");
shift @$r1 while @$r1;
my $r2 = charscript('Latin');
is(@$r2, $n1, "modifying results should not mess up internal caches");