1#!/usr/local/bin/perl
2
3BEGIN { require './t/funcs.pl' }
4
5use Convert::ASN1;
6
7print "1..4\n";
8
9my $asn;
10
11btest 1, $asn = Convert::ASN1->new or warn $asn->error;
12btest 2, $asn->prepare(q(
13  Message ::=  CHOICE
14  {
15    a A,
16    b B
17  }
18
19  A ::= [2] EXPLICIT INTEGER
20  B ::= [3] EXPLICIT INTEGER
21
22 )) || die $asn->error;
23
24my $mm = $asn->find("Message") || die $asn->error;
25
26my $buffer = pack("H*","a203020105");
27
28my $input = { a => 5 };
29
30my $result = $mm->encode($input) || die $mm->error;
31stest 3, $buffer, $result;
32rtest 4, $input, $mm->decode($buffer);
33