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

fix for doc tests

Browse Source
This commit is contained in:
Oliver Gorwits
2018-01-28 19:55:28 +00:00
parent 83d00ee9c7
commit 04ca5793fa
2 changed files with 33 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
xt/00_local_docininfo.t
View File

@@ -15,7 +15,7 @@ plan qw(no_plan);
my %Items;
# Grab all the =item's from Info.pm
open (I,"blib/lib/SNMP/Info.pm") or fail("Can't open Info.pm");
open (I,"lib/SNMP/Info.pm") or fail("Can't open Info.pm");
while (<I>) {
next unless /^\s*=item\s*(\S+)/;
$Items{$1}++;
@@ -25,11 +25,11 @@ close I;
#warn "items : ",join(', ',keys %Items),"\n";
# Check that each package is represented in Info.pm docs
find({wanted => \&check_version, no_chdir => 1}, 'blib');
find({wanted => \&check_version, no_chdir => 1}, 'lib');
sub check_version {
# $_ is the full path to the file
return unless (m{blib/lib/}xms and m{\.pm \z}xms);
return unless (m{lib/}xms and m{\.pm \z}xms);
my $content = read_file($_);