1use Convert::ASN1;
2use Test::More tests => 2;
3
4my $asn = Convert::ASN1->new;
5$asn->prepare(q<
6 [APPLICATION 7] SEQUENCE {
7 int INTEGER
8 }
9>);
10my $out;
11$out = $asn->decode( pack("H*", "dfccd3fde3") );
12ok(!$out);
13$out = $asn->decode( pack("H*", "b0805f92cb") );
14ok(!$out);
15