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
|
#!/usr/local/bin/perl
use Convert::BER qw(/BER/ ber_tag);
print "1..22\n";
my $i = 1;
sub test ($$) {
unless ($_[0] == $_[1]) {
printf "# expecting 0x%x, got 0x%x\nnot ",@_;
}
print "ok ",$i++,"\n";
}
test 0x00, ber_tag(0,0);
test 0x81, ber_tag(BER_CONTEXT,1);
test 0x42, ber_tag(BER_APPLICATION,2);
test 0x03, ber_tag(BER_UNIVERSAL,3);
test 0xC4, ber_tag(BER_PRIVATE,4);
test 0x05, ber_tag(BER_PRIMITIVE,5);
test 0x26, ber_tag(BER_CONSTRUCTOR,6);
test 0x261f, ber_tag(0,38);
test 0x279f, ber_tag(BER_CONTEXT,39);
test 0x285f, ber_tag(BER_APPLICATION,40);
test 0x291f, ber_tag(BER_UNIVERSAL,41);
test 0x2adf, ber_tag(BER_PRIVATE,42);
test 0x2b1f, ber_tag(BER_PRIMITIVE,43);
test 0x2c3f, ber_tag(BER_CONSTRUCTOR,44);
test 0x38821f, ber_tag(0,0x138);
test 0x39829f, ber_tag(BER_CONTEXT,0x139);
test 0x40825f, ber_tag(BER_APPLICATION,0x140);
test 0x41821f, ber_tag(BER_UNIVERSAL,0x141);
test 0x4282df, ber_tag(BER_PRIVATE,0x142);
test 0x43821f, ber_tag(BER_PRIMITIVE,0x143);
test 0x44823f, ber_tag(BER_CONSTRUCTOR,0x144);
test 0xa1, ber_tag(BER_CONTEXT | BER_CONSTRUCTOR,1);
|
