3 (save_descriptions, use_long_names)
24 (use_enums, sprint_val, long_names)
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.
44 Use teststub.t attached below as a template for creating additional
47 Add more tests and feed them back into the distribution! The more the
50 Written by John Stoffel (jfs@fluent.com =or= john@nesc.org) 10/14/1997
52 ------------<teststub.t>--------------------------------
56 unless(grep /blib/, @INC) {
58 @INC = '../lib' if -d '../lib';
65 $num = 0; # Number of tests to run
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';
75 ######################################################################
76 # Garbage names return Undef.
78 $type = SNMP::getType($junk_name);
79 printf "%s %d\n", (!defined($type)) ? "ok" :"not ok", $n++;