1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!./perl
use strict;
use warnings;
BEGIN {
eval "use Cwd qw(abs_path)";
}
use File::Spec;
use Test;
BEGIN {plan tests => 7}
use SNMP;
require "t/startagent.pl";
use vars qw($mibdir);
$SNMP::verbose = 0;
my $mib_file = File::Spec->catfile('t', 'mib.txt');
my $junk_mib_file = 'mib.txt';
my $mibfile1 = File::Spec->catfile($mibdir, "TCP-MIB.txt");
my @mibdir = ("$mibdir");
my $mibfile2 = File::Spec->catfile($mibdir, "IPV6-TCP-MIB.txt");
######################################################################
# See if we can find a mib to use, return of 0 means the file wasn't
# found or isn't readable.
my $res = SNMP::setMib($junk_mib_file,1);
ok(defined(!$res));
######################################################################
# Now we give the right name
$res = SNMP::setMib($mib_file,1);
ok(defined($res));
######################################################################
# See if we can find a mib to use
$res = SNMP::setMib($mib_file,0);
ok(defined($res));
######################## 4 ################################
# add a mib dir
$res = SNMP::addMibDirs($mibdir[0]);
SNMP::loadModules("IP-MIB", "IF-MIB", "IANAifType-MIB", "RFC1213-MIB");
#SNMP::unloadModules(RMON-MIB);
#etherStatsDataSource shouldn't be found.
#present only in 1271 & RMON-MIB.
#
# XXX: because we can't count on user .conf files, we should turn off
# support for them (maybe set SNMPCONFPATH at the top of this
# script?). But for the mean time just search for a bogus node that
# will never exist.
$res = $SNMP::MIB{bogusetherStatsDataSource};
ok(!defined($res));
######################## 5 ############################
# add mib file
my $res1 = SNMP::addMibFiles($mibfile1);
ok(defined($res1));
my $res2 = SNMP::addMibFiles($mibfile2);
ok(defined($res2));
$res = $SNMP::MIB{ipv6TcpConnState}{moduleID};
ok($res =~ /^IPV6-TCP-MIB/);
#################################################
snmptest_cleanup();
|
