userapps/opensource/net-snmp/perl/SNMP/t/README

   1
   2 mibload
   3 (save_descriptions, use_long_names)
   4   setmib
   5   initMib
   6   addMibDirs
   7   addMibFiles
   8   loadModules
   9   unloadModules (todo)
  10
  11 mib
  12  translateObj
  13  getType
  14  mapEnum
  15  SNMP::MIB::NODE
  16
  17 session
  18   connectivity
  19   error handling
  20   mib loading
  21   parameters
  22
  23 get
  24 (use_enums, sprint_val, long_names)
  25   var formats
  26   fget
  27   multi varbinds
  28   error reporting
  29
  30 getnext
  31
  32 set
  33
  34 trap??
  35
  36 async
  37
  38 snmpv3
  39
  40
  41 This is the first stab at setting up comprehensive tests for
  42 SNMP-1.7 which look and act like regular perl5 test results.
  43
  44 Use teststub.t attached below as a template for creating additional
  45 test modules.
  46
  47 Add more tests and feed them back into the distribution!  The more the
  48 better!
  49
  50 Written by John Stoffel (jfs@fluent.com =or= john@nesc.org) 10/14/1997
  51
  52 ------------<teststub.t>--------------------------------
  53 #!./perl
  54
  55 BEGIN {
  56     unless(grep /blib/, @INC) {
  57         chdir 't' if -d 't';
  58         @INC = '../lib' if -d '../lib';
  59     }
  60 }
  61 use Test;
  62 use SNMP 3.0;
  63
  64 $SNMP::verbose = 0;
  65 $num = 0;  # Number of tests to run
  66
  67 print "1..$num\n";
  68 $n = 1;
  69
  70 my $junk_oid = ".1.3.6.1.2.1.1.1.1.1.1";
  71 my $oid = '.1.3.6.1.2.1.1.1';
  72 my $name = 'sysDescr';
  73 my $junk_name = 'fooDescr';
  74
  75 ######################################################################
  76 # Garbage names return Undef.
  77 # test 1
  78 $type = SNMP::getType($junk_name);
  79 printf "%s %d\n", (!defined($type)) ? "ok" :"not ok", $n++;
  80
  81