win32/dist/scripts/net-snmp-perl-test.pl

#!/usr/bin/perl
#
# Net-SNMP Perl Test
#
# Written by Alex Burger
# alex_b@users.sourceforge.net
#
# 3/26/2004
#
##############################################################################
$| = 1;

use SNMP;

$ENV{'MIBS'} = 'ALL';

&SNMP::initMib();

$SNMP::best_guess = 2;
$include_module   = 1;

my $test;
my $long_names;
my $include_module;

print "\n\nTesting translateObj\n";
print "********************\n";

$test = 'sysDescr';
$expect = '.1.3.6.1.2.1.1.1';
$long_names = 0;
$include_module = 0;

$translated = &SNMP::translateObj("$test",$long_names,$include_module);
if ($translated eq $expect)
{
  print "Test passed.  Result: $translated\n";
}
else
{
  print "Test FAILED!  Expected: $expect\n";
  print "              Received: $translated\n";
}

print "\n";