File: 09contr.t

package info (click to toggle)
libconvert-asn1-perl 0.34-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 468 kB
  • sloc: perl: 4,526; yacc: 544; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/local/bin/perl

#
# Test the decode on constructed values
#

use Convert::ASN1;
BEGIN { require './t/funcs.pl' }

print "1..4\n";


btest 1, $asn  = Convert::ASN1->new or warn $asn->error;
btest 2, $asn->prepare(q(
    str STRING
)) or warn $asn->error;

my $buf = pack "C*", 0x24, 0x80,
			0x04, 0x03, 0x61, 0x62, 0x63,
			0x04, 0x03, 0x44, 0x45, 0x46,
			0x00, 0x00;


btest 3, $ret = $asn->decode($buf) or warn $asn->error;
stest 4, "abcDEF", $ret->{str};