#!/usr/local/bin/perl

#
# Test that the primitive operators are working
#

# Wolfgang Rosner

use Convert::ASN1 qw(:all);

print "1..24\n";

BEGIN { require 't/funcs.pl' }

my $t = 1;

btest $t++, $asn = Convert::ASN1->new or warn $asn->error;
btest $t++, $asn->prepare('date UTCTime') or warn $asn->error;

my $time = 987718268; # 2001-04-19 22:11:08 GMT
my $result;
my $ret;

# One hour ahead

$result = pack("C*",
  0x17, 0x11, 0x30, 0x31, 0x30, 0x34, 0x31, 0x39,
  0x32, 0x33, 0x31, 0x31, 0x30, 0x38, 0x2B, 0x30,
  0x31, 0x30, 0x30
);

$asn->configure( encode => { timezone => +3600 } );
stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};

# 2 hours ahead

$result = pack("C*",
  0x17, 0x11, 0x30, 0x31, 0x30, 0x34, 0x32, 0x30,
  0x30, 0x30, 0x31, 0x31, 0x30, 0x38, 0x2b, 0x30,
  0x32, 0x30, 0x30
);

$asn->configure( encode => { timezone => +7200 } );
stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};

# zulu

$result = pack("C*",
  0x17, 0x0D, 0x30, 0x31, 0x30, 0x34, 0x31, 0x39,
  0x32, 0x32, 0x31, 0x31, 0x30, 0x38, 0x5A
);

$asn->configure( encode => { 'time' => 'utctime' } );
stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};

# 1 hour ahead

btest $t++, $asn = Convert::ASN1->new or warn $asn->error;
btest $t++, $asn->prepare('date GeneralizedTime') or warn $asn->error;
$result = pack("C*",
  0x18, 0x13, 0x32, 0x30, 0x30, 0x31, 0x30, 0x34, 0x31, 0x39,
  0x32, 0x33, 0x31, 0x31, 0x30, 0x38, 0x2B, 0x30,
  0x31, 0x30, 0x30
);

$asn->configure( encode => { timezone => +3600 } );
stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};

# 4 hours behind

btest $t++, $asn = Convert::ASN1->new or warn $asn->error;
btest $t++, $asn->prepare('date GeneralizedTime') or warn $asn->error;
$result = pack("C*",
  0x18, 0x13, 0x32, 0x30, 0x30, 0x31, 0x30, 0x34, 0x31, 0x39,
  0x31, 0x38, 0x31, 0x31, 0x30, 0x38, 0x2D, 0x30,
  0x34, 0x30, 0x30
);

$asn->configure( encode => { timezone => -14400 } );
stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};

# fractional second

$time += 0.5;
$result = pack("C*",
  0x18, 0x17, 0x32, 0x30, 0x30, 0x31, 0x30, 0x34, 0x31,
  0x39, 0x32, 0x33, 0x31, 0x31, 0x30, 0x38,
  0x2E, 0x35, 0x30, 0x30, 0x2B, 0x30, 0x31, 0x30, 0x30
);

$asn->configure( encode => { timezone => +3600 } );
stest $t++, $result, $asn->encode(date => $time) or warn $asn->error;
btest $t++, $ret = $asn->decode($result) or warn $asn->error;
ntest $t++, $time, $ret->{date};