blob: 792173277bda9276283bfe32f0a332b8cf204065 [file] [log] [blame]
mibload
(save_descriptions, use_long_names)
setmib
initMib
addMibDirs
addMibFiles
loadModules
unloadModules (todo)
mib
translateObj
getType
mapEnum
SNMP::MIB::NODE
session
connectivity
error handling
mib loading
parameters
get
(use_enums, sprint_val, long_names)
var formats
fget
multi varbinds
error reporting
getnext
set
trap??
async
snmpv3
This is the first stab at setting up comprehensive tests for
SNMP-1.7 which look and act like regular perl5 test results.
Use teststub.t attached below as a template for creating additional
test modules.
Add more tests and feed them back into the distribution! The more the
better!
Written by John Stoffel (jfs@fluent.com =or= john@nesc.org) 10/14/1997
------------<teststub.t>--------------------------------
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib' if -d '../lib';
}
}
use Test;
use SNMP 3.0;
$SNMP::verbose = 0;
$num = 0; # Number of tests to run
print "1..$num\n";
$n = 1;
my $junk_oid = ".1.3.6.1.2.1.1.1.1.1.1";
my $oid = '.1.3.6.1.2.1.1.1';
my $name = 'sysDescr';
my $junk_name = 'fooDescr';
######################################################################
# Garbage names return Undef.
# test 1
$type = SNMP::getType($junk_name);
printf "%s %d\n", (!defined($type)) ? "ok" :"not ok", $n++;