#!/usr/bin/perl

#

# Test that default EXPLICIT tagging works.

#

use Convert::ASN1;

BEGIN { require 't/funcs.pl' }

print "1..25\n";

btest 1, $asn = Convert::ASN1->new(encoding=>'DER',

                                   tagdefault=>'EXPLICIT') or warn $asn->error;

# Tests from X.690-0207, section 8.14.3

my $value = "Jones";

btest 2, $asn->prepare(q(

     Type1 ::= VisibleString

     Type2 ::= [APPLICATION 3] IMPLICIT Type1

     Type3 ::= [2] Type2

     Type4 ::= [APPLICATION 7] IMPLICIT Type3

     Type5 ::= [2] IMPLICIT Type2

)) or warn $asn->error;

# Type 1

btest 3, $type1 = $asn->find('Type1');

$result = pack("H*", "1A054A6F6E6573");

stest 4, $result, $type1->encode($value) or warn $asn->error;

btest 5, $ret = $type1->decode($result) or warn $asn->error;

stest 6, $value, $ret;

# Type 2

btest 7, $type2 = $asn->find('Type2');

$result = pack("H*", "43054A6F6E6573");

stest 8, $result, $type2->encode($value) or warn $asn->error;

btest 9, $ret = $type2->decode($result) or warn $asn->error;

stest 10, $value, $ret;

# Type 3

btest 11, $type3 = $asn->find('Type3');

$result = pack("H*", "A20743054A6F6E6573");

stest 12, $result, $type3->encode($value) or warn $asn->error;

btest 13, $ret = $type3->decode($result) or warn $asn->error;

stest 14, $value, $ret;

# Type 4

btest 15, $type4 = $asn->find('Type4');

$result = pack("H*", "670743054A6F6E6573");

stest 16, $result, $type4->encode($value) or warn $asn->error;

btest 17, $ret = $type4->decode($result) or warn $asn->error;

stest 18, $value, $ret;

# Type 5

btest 19, $type5 = $asn->find('Type5');

$result = pack("H*", "82054A6F6E6573");

stest 20, $result, $type5->encode($value) or warn $asn->error;

btest 21, $ret = $type5->decode($result) or warn $asn->error;

stest 22, $value, $ret;

# Test EXPLICIT tagging a nested SEQUENCE.

btest 23, $asn->prepare(q(

         X  ::= [APPLICATION 10] Y

         Y  ::= SEQUENCE {

                v [1] INTEGER,

                b [4] Z

         }

         Z ::= SEQUENCE {

             n [7] INTEGER,

             e [8] SEQUENCE OF INTEGER

         }

)) or warn $asn->error;

btest 24, $X = $asn->find('X');

$value = { v => 5,b => { n => 117, e=>[18,17,16,23] }};

$result = pack("H*", "6a20301ea103020105a4173015a703020175a80e300c020112020111020110020117");

stest 25, $result, $X->encode($value) or warn $asn->error;