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
|
#!/usr/local/bin/perl
#
# Test the use of utf8 strings
#
use Convert::ASN1;
BEGIN { require './t/funcs.pl' }
if ($] < 5.007) {
print "1..0\n";
exit;
}
print "1..12\n";
btest 1, $asn = Convert::ASN1->new() or warn $asn->error;
btest 2, $asn->prepare(q(
str STRING
)) or warn $asn->error;
my $result = pack("C*", 0x04, 0x07, 0x75, 0x74, 0x66, 0x38, 0x20, 0xc6, 0x81);
stest 3, $result, $asn->encode(str => "utf8 " . chr(0x181)) or warn $asn->error;
btest 4, $ret = $asn->decode($result) or warn $asn->error;
stest 5, "utf8 " . chr(0xc6) . chr(0x81), $ret->{str};
btest 6, $asn->prepare(q(
str UTF8String
)) or warn $asn->error;
my $utf_str = "utf8 " . chr(0x181);
$result = pack("C*", 0x0c, 0x07, 0x75, 0x74, 0x66, 0x38, 0x20, 0xc6, 0x81);
stest 7, $result, $asn->encode(str => $utf_str) or warn $asn->error;
btest 8, $ret = $asn->decode($result) or warn $asn->error;
stest 9, $utf_str, $ret->{str};
# Test that UTF8String will upgrade on encoding
$result = pack("C*", 0x0c, 0x02, 0xc2, 0x81);
stest 10, $result, $asn->encode(str => chr(0x81)) or warn $asn->error;
btest 11, $ret = $asn->decode($result) or warn $asn->error;
stest 12, chr(0x81), $ret->{str};
|
