#!/usr/bin/perl

BEGIN { require 't/funcs.pl' }

use Convert::ASN1;

print "1..4\n";

my $asn;

btest 1, $asn = Convert::ASN1->new or warn $asn->error;

btest 2, $asn->prepare(q(

  Message ::=  CHOICE

  {

    a A,

    b B

  }

  A ::= [2] EXPLICIT INTEGER

  B ::= [3] EXPLICIT INTEGER

 )) || die $asn->error;

my $mm = $asn->find("Message") || die $asn->error;

my $buffer = pack("H*","a203020105");

my $input = { a => 5 };

my $result = $mm->encode($input) || die $mm->error;

stest 3, $buffer, $result;

rtest 4, $input, $mm->decode($buffer);