Something

Index: t/mib.t
===================================================================
RCS file: /cvsroot/net-snmp/net-snmp/perl/SNMP/t/mib.t,v
retrieving revision 5.7
diff -u -r5.7 mib.t
--- t/mib.t	25 Sep 2006 16:25:12 -0000	5.7
+++ t/mib.t	10 Nov 2006 14:55:23 -0000
@@ -19,7 +19,7 @@
 BEGIN {plan tests => 35}
 use SNMP;
 
-$SNMP::verbose = 0;
+$SNMP::debugging = 1;
 $SNMP::best_guess = 2;
 
 use vars qw($bad_oid);
@@ -30,19 +30,19 @@
 #############################  1  ######################################
 #check if
 my $res = $SNMP::MIB{sysDescr}{label};
-#print("Label is:$res\n");
+snmptest_print("01: Label is: $res\n");
 ok("sysDescr" eq $res);
-#print("\n");
+snmptest_print("\n");
 #############################  2  ######################################
 $res =  $SNMP::MIB{sysDescr}{objectID};
-#print("OID is: $res\n");
+snmptest_print("02: OID is: $res\n");
 ok(defined($res));
-#print("\n");
+snmptest_print("\n");
 #############################  3  ######################################
 $res =  $SNMP::MIB{sysDescr}{access};
-#print("access is: $res\n");
+snmptest_print("03: access is: $res\n");
 ok($res eq 'ReadOnly');
-#print("\n");
+snmptest_print("\n");
 ##############################  4  ###################################
 $res =  $SNMP::MIB{sysLocation}{access};
 #$res =  $SNMP::MIB{sysORIndex}{access};
@@ -52,60 +52,61 @@
 ok($res eq 'OCTETSTR');
 #############################  6  ####################################
 $res =  $SNMP::MIB{sysLocation}{status};
-#print STDERR ("status is: $res\n");
+snmptest_print("06: status is: $res\n");
 ok($res eq 'Current');
-#print STDERR ("\n");
+snmptest_print("\n");
 #############################  7  #################################
 $res =  $SNMP::MIB{sysORTable}{access};
-#print("access is: $res\n");
+snmptest_print("07: access is: $res\n");
 ok($res eq 'NoAccess');
-#print("\n");
+snmptest_print("\n");
 #############################  8  ###############################
 $res = $SNMP::MIB{sysLocation}{subID};
-#print("subID is: $res\n");
+snmptest_print("08: subID is: $res\n");
 ok(defined($res));
-#print("\n");
+snmptest_print("\n");
 ############################  9  ##############################
 $res = $SNMP::MIB{sysLocation}{syntax};
-#print("syntax is: $res\n");
+snmptest_print("09: syntax is: $res\n");
 ok($res eq 'DisplayString');
-#print("\n");
+snmptest_print("\n");
 ############################  10  ###########################
 $res = $SNMP::MIB{ipAdEntAddr}{syntax};
+snmptest_print("10: syntax is: $res\n");
 ok($res eq 'IPADDR');
-#print("\n");
+snmptest_print("\n");
 ##########################  11  ##########################
 $res = $SNMP::MIB{atNetAddress}{syntax};
-#print ("syntax is: $res\n");
+snmptest_print ("11: syntax is: $res\n");
 ok($res eq 'NETADDR');
-#print("\n");
+snmptest_print("\n");
 ########################   12  ###############################
 $res = $SNMP::MIB{ipReasmOKs}{syntax};
-#print("syntax is: $res\n");
+snmptest_print("12: syntax is: $res\n");
 ok($res eq 'COUNTER');
-#print("\n");
+snmptest_print("\n");
 ######################   13  ##############################
 $res = $SNMP::MIB{sysDescr}{moduleID};
-#print("Module ID is: $res\n");
+snmptest_print("13: Module ID is: $res\n");
 ok(defined($res));
-#print("\n");
+snmptest_print("\n");
 ######################  14   #########################
 $des = $SNMP::MIB{atNetAddress}{description};
-#print("des is --> $des\n");
+snmptest_print("14: des is --> $des\n");
 ok(defined($des));
-#print("\n");
+snmptest_print("\n");
 
 ######################  15   #########################
 $res = $SNMP::MIB{atNetAddress}{nextNode};
-#print("res is --> $res\n");
+snmptest_print("15: res is --> $res\n");
 ok(ref($res) eq "HASH");
-#print("\n");
+snmptest_print("\n");
 
 ########################  16   #########################
 $res = $SNMP::MIB{sysDescr}{children};
-#print("res is --> $res\n");
+snmptest_print("16: res is --> $res\n");
 ok(ref($res) eq "ARRAY");
-#print("\n");
+snmptest_print("\n");
 ####################  17   #########################
 
 $res = $SNMP::MIB{sysDescr}{badField};
@@ -114,17 +115,17 @@
 
 ######################  18   #########################
 $res = $SNMP::MIB{sysDescr}{hint};
-#print("res is --> $res\n");
+#snmptest_print("18: res is --> $res\n");
 #XXX: test fails due SMIv1 codes being returned intstead of SMIv2...
 #ok(defined($res) && $res =~ /^255a/);
-#print("\n");
+#snmptest_print("\n");
 ######################  19   #########################
 
 $res = $SNMP::MIB{ifPhysAddress}{hint};
-#print("res is --> $res\n");
+#snmptest_print("19: res is --> $res\n");
 #XXX: test fails due SMIv1 codes being returned intstead of SMIv2...
 #ok(defined($res) && $res =~ /^1x:/);
-#print("\n");
+#snmptest_print("\n");
 
 
 ######################  some translate tests  #######
@@ -159,13 +160,17 @@
 # Translation tests from Name -> OID
 # RFC1213-MIB::sysDescr to .1.3.6.1.2.1.1.1
 $oid_tag = SNMP::translateObj($name_module);
+snmptest_print("24: oid is: $oid_tag\n");
 ok($oid eq $oid_tag);
+snmptest_print("\n");
 
 ######################################################################
 # Translation tests from Name -> OID
 # .iso.org.dod.internet.mgmt.mib-2.system.sysDescr to .1.3.6.1.2.1.1.1
 $oid_tag = SNMP::translateObj($name_long);
+snmptest_print("25: oid is: $oid_tag\n");
 ok($oid eq $oid_tag);
+snmptest_print("\n");
 
 ######################################################################
 # bad name returns 'undef'
@@ -178,7 +183,9 @@
 # OID -> name
 # .1.3.6.1.2.1.1.1 to sysDescr
 $name_tag = SNMP::translateObj($oid);
+snmptest_print("27: name is: $name_tag\n");
 ok($name eq $name_tag);
+snmptest_print("\n");
 
 ######################################################################
 # OID -> name
Index: t/startagent.pl
===================================================================
RCS file: /cvsroot/net-snmp/net-snmp/perl/SNMP/t/startagent.pl,v
retrieving revision 5.7
diff -u -r5.7 startagent.pl
--- t/startagent.pl	22 Sep 2006 20:56:14 -0000	5.7
+++ t/startagent.pl	10 Nov 2006 14:55:23 -0000
@@ -141,5 +141,9 @@
 
 } 
 
+sub snmptest_print {
+  if ($SNMP::debugging > 0) { print STDERR @_; }
+}
+
 1;