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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
BEGIN {
if ($ENV{'PERL_CORE'}){
chdir 't';
unshift @INC, '../lib';
}
require Config; import Config;
if ($Config{'extensions'} !~ /\bEncode\b/) {
print "1..0 # Skip: Encode was not built\n";
exit 0;
}
$| = 1;
}
use strict;
use utf8;
use Test::More tests => 780;
use Encode;
use Encode::GSM0338;
# The specification of GSM 03.38 is not awfully clear.
# (http://www.unicode.org/Public/MAPPINGS/ETSI/GSM0338.TXT)
# The various combinations of 0x00 and 0x1B as leading bytes
# are unclear, as is the semantics of those bytes as standalone
# or as final single bytes.
my $chk = Encode::LEAVE_SRC();
# escapes
# see http://www.csoft.co.uk/sms/character_sets/gsm.htm
my %esc_seq = (
"\x{20ac}" => "\x1b\x65",
"\x0c" => "\x1b\x0A",
"[" => "\x1b\x3C",
"\\" => "\x1b\x2F",
"]" => "\x1b\x3E",
"^" => "\x1b\x14",
"{" => "\x1b\x28",
"|" => "\x1b\x40",
"}" => "\x1b\x29",
"~" => "\x1b\x3D",
);
my %unesc_seq = reverse %esc_seq;
sub eu{
$_[0] =~ /[\x00-\x1f]/ ?
sprintf("\\x{%04X}", ord($_[0])) : encode_utf8($_[0]);
}
for my $c ( map { chr } 0 .. 127 ) {
my $u = $Encode::GSM0338::GSM2UNI{$c};
# default character set
is decode( "gsm0338", $c, $chk ), $u,
sprintf( "decode \\x%02X", ord($c) );
eval { decode( "gsm0338", $c . "\xff", $chk ) };
ok( $@, $@ );
is encode( "gsm0338", $u, $chk ), $c, sprintf( "encode %s", eu($u) );
eval { encode( "gsm0338", $u . "\x{3000}", $chk ) };
ok( $@, $@ );
# nasty atmark
if ( $c eq "\x00" ) {
is decode( "gsm0338", "\x00" . $c, $chk ), "\x00",
sprintf( '@@ =>: \x00+\x%02X', ord($c) );
}
else {
is decode( "gsm0338", "\x00" . $c ), '@' . decode( "gsm0338", $c ),
sprintf( '@: decode \x00+\x%02X', ord($c) );
}
# escape seq.
my $ecs = "\x1b" . $c;
if ( $unesc_seq{$ecs} ) {
is decode( "gsm0338", $ecs, $chk ), $unesc_seq{$ecs},
sprintf( "ESC: decode ESC+\\x%02X", ord($c) );
is encode( "gsm0338", $unesc_seq{$ecs}, $chk ), $ecs,
sprintf( "ESC: encode %s ", eu( $unesc_seq{$ecs} ) );
}
else {
is decode( "gsm0338", $ecs, $chk ),
"\xA0" . decode( "gsm0338", $c ),
sprintf( "decode ESC+\\x%02X", ord($c) );
}
}
# https://rt.cpan.org/Ticket/Display.html?id=75670
is decode("gsm0338", "\x09") => chr(0xC7), 'RT75670: decode';
is encode("gsm0338", chr(0xC7)) => "\x09", 'RT75670: encode';
__END__
for my $c (map { chr } 0..127){
my $b = "\x1b$c";
my $u = $Encode::GSM0338::GSM2UNI{$b};
next unless $u;
$u ||= "\xA0" . $Encode::GSM0338::GSM2UNI{$c};
is decode("gsm0338", $b), $u, sprintf("decode ESC+\\x%02X", ord($c) );
}
__END__
# old test follows
ub t { is(decode("gsm0338", my $t = $_[0]), $_[1]) }
# t("\x00", "\x00"); # ???
# "Round-trip".
t("\x41", "\x41");
t("\x01", "\xA3");
t("\x02", "\x24");
t("\x03", "\xA5");
t("\x09", "\xE7");
t("\x00\x00", "\x00\x00"); # Maybe?
t("\x00\x1B", "\x40\xA0"); # Maybe?
t("\x00\x41", "\x40\x41");
# t("\x1B", "\x1B"); # ???
# Escape with no special second byte is just a NBSP.
t("\x1B\x41", "\xA0\x41");
t("\x1B\x00", "\xA0\x40"); # Maybe?
# Special escape characters.
t("\x1B\x0A", "\x0C");
t("\x1B\x14", "\x5E");
t("\x1B\x28", "\x7B");
t("\x1B\x29", "\x7D");
t("\x1B\x2F", "\x5C");
t("\x1B\x3C", "\x5B");
t("\x1B\x3D", "\x7E");
t("\x1B\x3E", "\x5D");
t("\x1B\x40", "\x7C");
t("\x1B\x40", "\x7C");
t("\x1B\x65", "\x{20AC}");
|
