The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

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++;