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