3bcc522590
* ident
* remove $Id$ tags from rcs software which has been retired
* make an effort to sync required mib docs with actual code
* sync even more docs with what code actually does
* some whitespace nits
* fixup example to use snmpv2 for all but the most ancient devices
* remove blurb to find more specific snmp::info classes for classes
which alrdy are as specific as they can get (eg snmp::info::layer3::vmware
doesn't need info on to find a specific module since there ain't none)
* rename all sub {vendor} strings to lowercase vendor, if cisco, juniper
and arista can be lowercase, so can be all the rest.
* fix tests
* spread some use warnings around
* use $ instead of @
* remove defines that are included via parent classes
* use strict + warnings
* remove alrdy included modules
* add comma after last list item
* typos
* mibs are found in our mib repo, not on the cisco site
* documentation fixes
45 lines
1.1 KiB
Perl
45 lines
1.1 KiB
Perl
#!/usr/bin/env perl
|
|
# 00_local_versionsync.t - Private test to check all version numbers match
|
|
|
|
use warnings;
|
|
use strict;
|
|
use File::Find;
|
|
use Test::More;
|
|
|
|
eval "use File::Slurp";
|
|
plan skip_all => "File::Slurp required for testing version sync"
|
|
if $@;
|
|
|
|
plan qw(no_plan);
|
|
|
|
my $last_version = undef;
|
|
find({wanted => \&check_version, no_chdir => 1}, 'lib');
|
|
if (! defined $last_version) {
|
|
fail('Failed to find any files with $VERSION');
|
|
}
|
|
|
|
sub check_version {
|
|
# $_ is the full path to the file
|
|
return if (! m{contrib/util/}xms && ! m{\.pm \z}xms);
|
|
|
|
my $content = read_file($_);
|
|
|
|
# only look at perl scripts, not sh scripts
|
|
return if (m{contrib/util/}xms && $content !~ m/\A \#![^\r\n]+?perl/xms);
|
|
|
|
my @version_lines = $content =~ m/ ( [^\n]* \$VERSION\s= [^\n]* ) /gxms;
|
|
if (@version_lines == 0) {
|
|
fail($_);
|
|
}
|
|
for my $line (@version_lines) {
|
|
if (!defined $last_version) {
|
|
$last_version = shift @version_lines;
|
|
pass($_);
|
|
}
|
|
else {
|
|
is($line, $last_version, $_);
|
|
}
|
|
}
|
|
}
|
|
|