135/snmp-info
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

support debug via env vars (same as netdisco)

Browse Source
This commit is contained in:
Oliver Gorwits
2019-04-20 06:57:43 +01:00
parent 4b75ef1889
commit 01fa098078
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
xt/lib/My/Test/Class.pm
View File

@@ -73,6 +73,8 @@ sub setup : Tests(setup) {
'Community' => 'public', 'Community' => 'public',
'Version' => 2, 'Version' => 2,
'Session' => $sess, 'Session' => $sess,
'Debug' => ($ENV{INFO_TRACE} || 0),
'DebugSNMP' => ($ENV{SNMP_TRACE} || 0),
); );
} }

4
xt/lib/Test/SNMP/Info.pm
View File

@@ -935,7 +935,7 @@ sub init : Tests(3) {
my $netsnmp_ver = $SNMP::VERSION; my $netsnmp_ver = $SNMP::VERSION;
local $SNMP::VERSION = '5.0.1'; local $SNMP::VERSION = '5.0.1';
warnings_like { $test->{info}->init() } warnings_exist { $test->{info}->init() }
[{carped => qr/Net-SNMP\s5.0.1\sseems\sto\sbe\srather\sbuggy/x}], [{carped => qr/Net-SNMP\s5.0.1\sseems\sto\sbe\srather\sbuggy/x}],
'Use of bad Net-SNMP gives warning'; 'Use of bad Net-SNMP gives warning';
@@ -956,6 +956,8 @@ sub args : Tests(2) {
'Community' => 'public', 'Community' => 'public',
'Version' => 2, 'Version' => 2,
'Session' => $sess, 'Session' => $sess,
'Debug' => ($ENV{INFO_TRACE} || 0),
'DebugSNMP' => ($ENV{SNMP_TRACE} || 0),
}; };
can_ok($test->{info}, 'args'); can_ok($test->{info}, 'args');