1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
use strict;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/..";
require 't/lb.pl';
BEGIN { plan tests => 12 }
my @opts = (Context => 'EASTASIAN');
is(Unicode::GCString->new(Encode::decode('iso-8859-1', "\xA0"), @opts)->lbc,
Unicode::LineBreak::LB_GL());
is(Unicode::GCString->new(Encode::decode('iso-8859-1', "\xC2\xA0"), @opts)->lbc,
Unicode::LineBreak::LB_AL());
is(Unicode::GCString->new(Encode::decode('iso-8859-1', "\xD7"), @opts)->columns,
2);
is(Unicode::GCString->new(Encode::decode('iso-8859-1', "\xC3"), @opts)->columns,
1);
### obsoleted functions
##my $lb = Unicode::LineBreak->new(@opts);
##
##foreach my $s (("\xA0", "\x{A0}", Encode::decode('iso-8859-1', "\xA0"),
## )) {
## is($lb->lbclass($s), Unicode::LineBreak::LB_GL());
##}
##is($lb->lbclass("\xC2\xA0"), Unicode::LineBreak::LB_AL());
##foreach my $s (("\xD7", "\x{D7}", Encode::decode('iso-8859-1', "\xD7"),
## )) {
## is($lb->eawidth($s), Unicode::LineBreak::EA_F());
##}
##is($lb->eawidth("\xC3\x97"), Unicode::LineBreak::EA_N());
my $lb = Unicode::LineBreak->new(@opts);
foreach my $s ("\xA0", "\x{A0}", Encode::decode('iso-8859-1', "\xA0")) {
is(Unicode::GCString->new($s)->lbc, Unicode::LineBreak::LB_GL());
}
is(Unicode::GCString->new("\xC2\xA0")->lbc, Unicode::LineBreak::LB_AL());
foreach my $s ("\xD7", "\x{D7}", Encode::decode('iso-8859-1', "\xD7")) {
is(Unicode::GCString->new($s)->columns, 1);
}
is(Unicode::GCString->new("\xC2\xA0")->columns, 2);
|
