?? mib.t
字號(hào):
#!./perl# Written by John Stoffel (jfs@fluent.com) - 10/13/1997BEGIN { unless(grep /blib/, @INC) { chdir 't' if -d 't'; @INC = '../lib' if -d '../lib'; }}# to print the description...$SNMP::save_descriptions = 1;use Test;BEGIN {plan tests => 26}use SNMP;SNMP::initMib();$SNMP::verbose = 0;#$n = 3; # Number of tests to run$| = 1;#print "1..$n\n";#if ($n == 0) { exit 0; } else { $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';my $mib_file = 't/mib.txt';my $junk_mib_file = 'mib.txt';my %access_list = ("ro" => "ReadOnly", "rw" => "ReadWrite", "na" => "NoAccess", "wo" => "WriteOnly", "n" => "Notify", "c" => "Create");my %status_list = ("m" => "Mandatory", "op" => "Optional", "ob" => "Obsolete", "d" => "Deprecated", "c" => "Current");my %type_list = ("oid" => "OBJECTID", "ostr" => "OCTETSTR", "int" => "INTEGER", "na" => "NETADDR", "ip" => "IPADDR", "c" => "COUNTER", "g" => "GAUGE", "tt" =>"TIMETICKS", "op" =>"OPAQUE", "ud" =>"undef");my %syntax_list = ("ds" => "DisplayString", "ts" => "TimeStamp", "int" => "INTEGER", "oid" => "OBJECT IDENTIFIER", "c32" => "Counter32", "c" => "COUNTER", "ti" => "TestAndIncr", "g" => "Gauge", "pa" => "PhysAddress", "tt" => "TimeTicks", "na" => "NETADDR", "ia" => "IPADDR");############################# 1 #######################################check if my $res = $SNMP::MIB{sysDescr}{label};#print("Label is:$res\n");ok("sysDescr" eq $res);#print("\n");############################# 2 ######################################$res = $SNMP::MIB{sysDescr}{objectID};#print("OID is: $res\n");ok(defined($res));#print("\n");############################# 3 ######################################$res = $SNMP::MIB{sysDescr}{access};#print("access is: $res\n");ok($access_list{"ro"} eq $res);#print("\n");############################## 4 ###################################$res = $SNMP::MIB{sysLocation}{access};#$res = $SNMP::MIB{sysORIndex}{access};#print("access is: $res\n");ok($access_list{"rw"} eq "$res");#print("\n");############################## 5 ###################################$res = $SNMP::MIB{sysLocation}{type};#print("type is: $res\n");ok($type_list{"ostr"} eq $res);#print("\n");############################# 6 ####################################$res = $SNMP::MIB{sysLocation}{status};#print("status is: $res\n");ok($status_list{"c"} eq $res);#print("\n");############################# 7 #################################$res = $SNMP::MIB{sysORTable}{access};#print("access is: $res\n");ok($access_list{"na"} eq $res);#print("\n");############################# 8 ###############################$res = $SNMP::MIB{sysLocation}{subID};#print("subID is: $res\n");ok(defined($res));#print("\n");############################ 9 ##############################$res = $SNMP::MIB{sysLocation}{syntax};#print("syntax is: $res\n");ok($syntax_list{"ds"} eq $res);#print("\n");############################ 10 ###########################$res = $SNMP::MIB{ipAdEntAddr}{syntax};#print("syntax is: $res\n");ok($syntax_list{"ia"} eq $res);#print("\n");########################## 11 ############################ ***************** WEIRD **************$res = $SNMP::MIB{atNetAddress}{syntax};#print("syntax is: $res\n");ok($syntax_list{"ia"} eq $res);#print("\n");######################## 12 ###############################$res = $SNMP::MIB{ipReasmOKs}{syntax};#print("syntax is: $res\n");ok($syntax_list{"c"} eq $res);#print("\n");###################### 13 ##############################$res = $SNMP::MIB{sysDescr}{moduleID};#print("Module ID is: $res\n");ok(defined($res));#print("\n");###################### 14 #########################$des = $SNMP::MIB{atNetAddress}{description};#print("des is --> $des\n");ok(defined($des));#print("\n");###################### 15 #########################$res = $SNMP::MIB{atNetAddress}{nextNode};#print("res is --> $res\n");ok($res =~ /^HASH/);#print("\n");######################## 16 #########################$res = $SNMP::MIB{sysDescr}{children};#print("res is --> $res\n");ok($res =~ /^ARRAY/);#print("\n");#################### 17 ######################### ### *************** SEE ***************#$res = $SNMP::MIB{sysDes}{lalalala};# the above was creating STORE problems. Should look into it.$res = $SNMP::MIB{sysDescr}{lalalala};#print("res is --> $res\n");ok(!defined($res));#print("\n");###################### 18 #########################$res = $SNMP::MIB{sysDescr}{hint};#print("res is --> $res\n");ok($res =~ /^255a/);#print("\n");###################### 19 #########################$res = $SNMP::MIB{ifPhysAddress}{hint};#print("res is --> $res\n");ok($res =~ /^1x:/);#print("\n");###################### some translate tests ############################ 20 ########################## Garbage names return Undef.my $type1 = SNMP::getType($junk_name);ok(!defined($type1));#printf "%s %d\n", (!defined($type1)) ? "ok" :"not ok", $n++;####################################################################### getType() supports numeric OIDs nowmy $type2 = SNMP::getType($oid);ok($type2 =~ /OCTETSTR/);#printf "%s %d\n", ($type2 =~ /OCTETSTR/) ? "ok" :"not ok", $n++;####################################################################### This tests that sysDescr returns a valid type.my $type3 = SNMP::getType($name);ok(defined($type3));#printf "%s %d\n", defined($type3) ? "ok" :"not ok", $n++;####################################################################### Translation tests from Name -> oid -> Name####################################################################### name -> OID$oid_tag = SNMP::translateObj($name);ok($oid eq $oid_tag);#printf "%s %d\n", ($oid eq $oid_tag) ? "ok" :"not ok", $n++;####################################################################### bad name returns 'undef'$oid_tag = '';$oid_tag = SNMP::translateObj($junk_name);ok(!defined($oid_tag));#printf "%s %d\n", (!defined($oid_tag)) ? "ok" :"not ok", $n++;####################################################################### OID -> name$name_tag = SNMP::translateObj($oid);ok($name eq $name_tag);#printf "%s %d\n", ($name eq $name_tag) ? "ok" :"not ok", $n++;####################################################################### bad OID -> Name$name_tag = SNMP::translateObj($junk_oid);ok($name ne $name_tag);#printf "%s %d\n", ($name ne $name_tag) ? "ok" :"not ok", $n++;?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -