# -*- mode: perl -*- 
# ============================================================================

# $Id: ber.t,v 4.1 2002/05/06 12:30:37 dtown Rel $

# Test of the Basic Encoding Rules used by SNMP. 

# Copyright (c) 2001-2002 David M. Town <dtown@cpan.org>.
# All rights reserved.

# This program is free software; you may redistribute it and/or modify it
# under the same terms as Perl itself.

# ============================================================================

use strict;
use Test;

BEGIN 
{
   $|  = 1;
   $^W = 1; 
   plan tests => 7 
}

use Net::SNMP::Message qw(:types SNMP_VERSION_2C TRANSLATE_OCTET_STRING);

#
# 1. Create a Net::SNMP::Message object
# 

my ($m, $e);

eval 
{ 
   ($m, $e) = Net::SNMP::Message->new(-version => SNMP_VERSION_2C); 
};
 
ok(($@ || $e), '', 'Failed to create Net::SNMP::Message object');

#
# 2. Validate INTEGER = 4294967295
#

eval 
{
   $m->prepare(INTEGER, 4294967295);
   $e = $m->process || $m->error;
};

ok(($@ || $e), 4294967295, 'Failed to properly handle INTEGER');

#
# 3. Validate INTEGER = -128
#

eval 
{
   $m->clear;
   $m->prepare(INTEGER, -128);
   $e = $m->process || $m->error;
};

ok(($@ || $e), -128, 'Failed to properly handle INTEGER');

#
# 4. Validate OCTET STRING = 'David M. Town'
#

eval 
{
   $m->clear;
   $m->prepare(OCTET_STRING, 'David M. Town');
   $e = $m->process || $m->error;
};

ok(($@ || $e), 'David M. Town', 'Failed to properly handle OCTET STRING');

#
# 5. Validate OCTET STRING = 0xdeadbeef 
#

eval 
{
   $m->clear;
   $m->translate(TRANSLATE_OCTET_STRING);
   $m->prepare(OCTET_STRING, pack('H*', 'deadbeef'));
   $e = $m->process || $m->error;
};

ok(($@ || $e), '0xdeadbeef', 'Failed to properly handle OCTET STRING');

#
# 6. Validate OBJECT IDENTIFIER = '.1.3.6.1.3.4294967295.365.0.1'
#

eval 
{
   $m->clear;
   $m->prepare(OBJECT_IDENTIFIER, '.1.3.6.1.3.4294967295.365.0.1');
   $e = $m->process || $m->error;
};

ok(
   ($@ || $e), 
   '.1.3.6.1.3.4294967295.365.0.1', 
   'Failed to properly handle OBJECT IDENTIFIER'
);

#
# 7. Validate Counter64 = 18446744073709551615
#

eval 
{
   $m->clear;
   $m->prepare(COUNTER64, '18446744073709551615');
   $e = $m->process || $m->error;
};

ok(($@ || $e), '18446744073709551615', 'Failed to properly handle Counter64');

# ============================================================================