#!/usr/local/bin/perl
#
# Test that the primitive operators are working
#
use Convert::ASN1 qw(:all);
print "1..186\n";
BEGIN { require './t/funcs.pl' }
ntest 1, 129,      asn_tag(ASN_CONTEXT, 1);
ntest 2, 0x201f,   asn_tag(ASN_UNIVERSAL, 32);
ntest 3, 0x01825f, asn_tag(ASN_APPLICATION, 257);
stest 4, pack("C*", 129),            asn_encode_tag(129);
stest 5, pack("C*", 0x1f,0x20),      asn_encode_tag(0x201f);
stest 6, pack("C*", 0x5f,0x82,0x01), asn_encode_tag(0x01825f);
ntest 7, 129,       asn_decode_tag(asn_encode_tag(asn_tag(ASN_CONTEXT, 1)));
ntest 8, 0x201f,    asn_decode_tag(asn_encode_tag(asn_tag(ASN_UNIVERSAL, 32)));
ntest 9, 0x01825f,  asn_decode_tag(asn_encode_tag(asn_tag(ASN_APPLICATION, 257)));
ntest 10, 1, (asn_decode_tag(asn_encode_tag(asn_tag(ASN_CONTEXT, 1))))[0];
ntest 11, 2, (asn_decode_tag(asn_encode_tag(asn_tag(ASN_UNIVERSAL, 32))))[0];
ntest 12, 3, (asn_decode_tag(asn_encode_tag(asn_tag(ASN_APPLICATION, 257))))[0];
stest 13, pack("C*", 45),             asn_encode_length(45);
stest 14, pack("C*", 0x81,0x8b),      asn_encode_length(139);
stest 15, pack("C*", 0x82,0x12,0x34), asn_encode_length(0x1234);
ntest 16, 45,     asn_decode_length(asn_encode_length(45));
ntest 17, 139,    asn_decode_length(asn_encode_length(139));
ntest 18, 0x1234, asn_decode_length(asn_encode_length(0x1234));
ntest 19, 1, (asn_decode_length(asn_encode_length(45)))[0];
ntest 20, 2, (asn_decode_length(asn_encode_length(139)))[0];
ntest 21, 3, (asn_decode_length(asn_encode_length(0x1234)))[0];
btest 22, $asn = Convert::ASN1->new;
##
## NULL
##
print "# NULL\n";
$buf = pack("C*", 0x05, 0x00);
btest 23, $asn->prepare(' null NULL ') or warn $asn->error;
stest 24, $buf, $asn->encode(null => 1) or warn $asn->error;
btest 25, $ret = $asn->decode($buf) or warn $asn->error;
btest 26, $ret->{'null'};
##
## BOOLEAN 
##
$test = 27;
foreach $val (0,1,-99) {
  print "# BOOLEAN $val\n";
  my $result = pack("C*", 0x01, 0x01, $val ? 0xFF : 0);
  btest $test++, $asn->prepare(' bool BOOLEAN') or warn $asn->error;
  stest $test++, $result, $asn->encode(bool => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  ntest $test++, !!$val, !!$ret->{'bool'};
}
##
## INTEGER (tests 13 - 21)
##
my %INTEGER = (
  pack("C*", 0x02, 0x02, 0x00, 0x80),         128,
  pack("C*", 0x02, 0x01, 0x80),               -128,
  pack("C*", 0x02, 0x02, 0xff, 0x01),         -255,
  pack("C*", 0x02, 0x01, 0x00),               0,
  pack("C*", 0x02, 0x03, 0x66, 0x77, 0x99),   0x667799,
  pack("C*", 0x02, 0x02, 0xFE, 0x37),        -457,
  pack("C*", 0x02, 0x04, 0x40, 0x00, 0x00, 0x00),            2**30,
  pack("C*", 0x02, 0x04, 0xC0, 0x00, 0x00, 0x00),            -2**30,
);
while(($result,$val) = each %INTEGER) {
  print "# INTEGER $val\n";
  btest $test++, $asn->prepare(' integer INTEGER') or warn $asn->error;
  stest $test++, $result, $asn->encode(integer => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  ntest $test++, $val, $ret->{integer};
}
btest $test++, $asn->prepare('test ::= INTEGER ');
$result = pack("C*", 0x02, 0x01, 0x09);
stest $test++, $result, $asn->encode(9) or warn $asn->error;
btest $test++, $ret = $asn->decode($result) or warn $asn->error;
btest $test++, $ret == 9;
##
## STRING
##
my %STRING = (
  pack("C*",   0x04, 0x00),               "",
  pack("CCa*", 0x04, 0x08, "A string"),   "A string",
);
while(($result,$val) = each %STRING) {
  print "# STRING '$val'\n";
  btest $test++, $asn->prepare('str STRING') or warn $asn->error;
  stest $test++, $result, $asn->encode(str => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  stest $test++, $val, $ret->{'str'};
}
##
## OBJECT_ID
##
my %OBJECT_ID = (
  pack("C*", 0x06, 0x04, 0x2A, 0x03, 0x04, 0x05), "1.2.3.4.5",
  pack("C*", 0x06, 0x03, 0x55, 0x83, 0x49),       "2.5.457",  
  pack("C*", 0x06, 0x07, 0x00, 0x11, 0x86, 0x05, 0x01, 0x01, 0x01), "0.0.17.773.1.1.1",
  pack("C*", 0x06, 0x04, 0x86, 0x8D, 0x6F, 0x63), "2.99999.99",
);
while(($result,$val) = each %OBJECT_ID) {
  print "# OBJECT_ID $val\n";
  btest $test++, $asn->prepare('oid OBJECT IDENTIFIER') or warn $asn->error;
  stest $test++, $result, $asn->encode(oid => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  stest $test++, $val, $ret->{'oid'};
}
##
## ENUM
##
my %ENUM = (
  pack("C*", 0x0A, 0x01, 0x00),             0,       
  pack("C*", 0x0A, 0x01, 0x9D),            -99,      
  pack("C*", 0x0A, 0x03, 0x64, 0x4D, 0x90), 6573456,
);
while(($result,$val) = each %ENUM) {
  print "# ENUM $val\n";
  btest $test++, $asn->prepare('enum ENUMERATED') or warn $asn->error;
  stest $test++, $result, $asn->encode(enum => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  ntest $test++, $val, $ret->{'enum'};
}
##
## BIT STRING
##
my %BSTR = (
  pack("C*", 0x03, 0x02, 0x07, 0x00),
    [pack("B*",'0'), 1, pack("B*",'0')],
  pack("C*", 0x03, 0x02, 0x00, 0x33),
    pack("B*",'00110011'),
  pack("C*", 0x03, 0x04, 0x03, 0x6E, 0x5D, 0xC0),
    [pack("B*",'011011100101110111'), 21, pack("B*",'011011100101110111')],
  pack("C*", 0x03, 0x02, 0x01, 0x6E),
    [pack("B*",'011011111101110111'), 7, pack("B*", '01101110')]
);
while(($result,$val) = each %BSTR) {
    print "# BIT STRING ", unpack("B*", ref($val) ? $val->[0] : $val),
        " ",(ref($val) ? $val->[1] : $val),"\n";
  btest $test++, $asn->prepare('bit BIT STRING') or warn $asn->error;
  stest $test++, $result, $asn->encode( bit => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  stest $test++, (ref($val) ? $val->[2] : $val), $ret->{'bit'}[0];
  ntest $test++, (ref($val) ? $val->[1] : 8*length$val), $ret->{'bit'}[1];
}
##
## REAL
##
use POSIX qw(HUGE_VAL);
my %REAL = (
  pack("C*", 0x09, 0x00),  0,
  pack("C*", 0x09, 0x03, 0x80, 0xf9, 0xc0),  1.5,
  pack("C*", 0x09, 0x03, 0xc0, 0xfb, 0xb0), -5.5,
  pack("C*", 0x09, 0x01, 0x40),               HUGE_VAL(),
  pack("C*", 0x09, 0x01, 0x41),             - HUGE_VAL(),
);
while(($result,$val) = each %REAL) {
  print "# REAL $val\n";
  btest $test++, $asn->prepare('real REAL') or warn $asn->error;
  stest $test++, $result, $asn->encode( real => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  ntest $test++, $val, $ret->{'real'};
}
##
## RELATIVE-OID
##
my %ROID = (
  pack("C*", 0x0D, 0x05, 0x01, 0x02, 0x03, 0x04, 0x05), "1.2.3.4.5",
  pack("C*", 0x0D, 0x04, 0x02, 0x05, 0x83, 0x49),       "2.5.457",  
  pack("C*", 0x0D, 0x08, 0x00,  0x00, 0x11, 0x86, 0x05, 0x01, 0x01, 0x01), "0.0.17.773.1.1.1",
);
while(($result,$val) = each %ROID) {
  print "# RELATIVE-OID $val\n";
  btest $test++, $asn->prepare('roid RELATIVE-OID') or warn $asn->error;
  stest $test++, $result, $asn->encode(roid => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  stest $test++, $val, $ret->{'roid'};
}
##
## BCDString
##
my %BCD = (
  pack("C*", 0x04, 0x09, 0x12, 0x34, 0x56, 0x78, 0x91, 0x23, 0x45, 0x67, 0x89), "123456789123456789",
  pack("C*", 0x04, 0x04, 0x12, 0x34, 0x56, 0x78), 12345678,
  pack("C*", 0x04, 0x02, 0x56, 0x4f),             564,
  pack("C*", 0x04, 0x00),             "",
  pack("C*", 0x04, 0x00),             -1,
  pack("C*", 0x04, 0x01, 0x0f),             0,
  pack("C*", 0x04, 0x01, 0x2f),             2.2,
);
while(($result,$val) = each %BCD) {
  print "# BCDString $val\n";
  btest $test++, $asn->prepare('bcd BCDString') or warn $asn->error;
  stest $test++, $result, $asn->encode(bcd => $val) or warn $asn->error;
  btest $test++, $ret = $asn->decode($result) or warn $asn->error;
  $val =~ s/\D.*//;
  stest $test++, $val, $ret->{'bcd'};
}