|
[-]
[+]
|
Changed |
check_updates.changes
|
|
|
|
[-]
[+]
|
Changed |
check_updates.spec
^
|
|
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/AUTHORS
^
|
| @@ -6,9 +6,10 @@
* Jose Pedro Oliveira for the build and release fixes
* Tomas Edwardsson for a patch fixing the detection of RH EL 6 systems
* Cott Lang for the Amazon Linux patch
+ * Joop Boonen for the yum arguments patch
# File version information:
-# $Id: AUTHORS 1280 2011-12-03 16:35:13Z corti $
-# $Revision: 1280 $
+# $Id: AUTHORS 1329 2013-03-29 09:19:16Z corti $
+# $Revision: 1329 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/AUTHORS $
-# $Date: 2011-12-03 17:35:13 +0100 (Sat, 03 Dec 2011) $
+# $Date: 2013-03-29 10:19:16 +0100 (Fri, 29 Mar 2013) $
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/Changes
^
|
| @@ -1,6 +1,23 @@
+2013-03-29 Matteo Corti <matteo.corti@id.ethz.ch>
+
+ * Version 1.6.2
+ * check_updates: Applied a patch adding the possibility to pass
+ arguments to Yum
+
+2012-11-18 Matteo Corti <matteo.corti@id.ethz.ch>
+
+ * check_updates: Added Oracle to the systems list
+
+2012-09-03 Matteo Corti <matteo.corti@id.ethz.ch>
+
+ * Version 1.6.1
+ * check_updates: recognized PUIAS Linux
+
2012-04-15 Matteo Corti <matteo.corti@id.ethz.ch>
- * check_updates: added an option --security-only to ignore non-security related updates
+ * Version 1.6.0
+ * check_updates: added an option --security-only to ignore non-security
+ related updates
2011-12-04 Matteo Corti <matteo.corti@id.ethz.ch>
@@ -195,7 +212,7 @@
* check_updates: recognizes CentOS
# File version information:
-# $Id: Changes 1296 2012-04-15 19:27:18Z corti $
-# $Revision: 1296 $
+# $Id: Changes 1331 2013-03-29 13:31:14Z corti $
+# $Revision: 1331 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/Changes $
-# $Date: 2012-04-15 21:27:18 +0200 (Sun, 15 Apr 2012) $
+# $Date: 2013-03-29 14:31:14 +0100 (Fri, 29 Mar 2013) $
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/INSTALL
^
|
| @@ -1,5 +1,32 @@
Build and install check_updates
+Dependecies
+===========
+
+check_updates depends on several Perl modules:
+
+ * Carp
+ * English
+ * Getopt::Long
+ * Nagios::Plugin
+ * Nagios::Plugin::Getopt
+ * Nagios::Plugin::Threshold
+ * POSIX
+ * Readonly
+ * Sort::Versions
+
+Perl modules can be found on the "Comprehensive Perl Archive Network"
+(CPAN). The "How to install CPAN modules" guide summarizes how these
+can be installed
+
+ http://www.cpan.org/modules/INSTALL.html
+
+On many systems Perl modules are also available as installation
+packages (refer to your system documentation on how to install them).
+
+The 'perl Makefile.PL' command (see below) will list the missing
+packages the you will need to install.
+
Install to /usr/lib/nagios/plugins/contrib
==========================================
@@ -44,7 +71,7 @@
# Version information:
#
-# $Id: INSTALL 1103 2009-12-07 07:49:19Z corti $
-# $Revision: 1103 $
+# $Id: INSTALL 1312 2012-08-24 06:59:49Z corti $
+# $Revision: 1312 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/INSTALL $
-# $Date: 2009-12-07 08:49:19 +0100 (Mon, 07 Dec 2009) $
+# $Date: 2012-08-24 08:59:49 +0200 (Fri, 24 Aug 2012) $
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/MANIFEST
^
|
| @@ -24,6 +24,8 @@
t/01_functions.t
t/examples/fedora_14
t/examples/fedora_15
+t/examples/fedora_17
+t/examples/puias_6.2
t/examples/rhel_4
t/examples/rhel_6
t/examples/scientific_linux_6
|
|
[-]
[+]
|
Added |
check_updates-1.6.2.tar.bz2/META.yml
^
|
| @@ -0,0 +1,34 @@
+---
+abstract: ~
+author:
+ - 'Matteo Corti <matteo.corti@id.ethz.ch>'
+build_requires:
+ ExtUtils::MakeMaker: 6.42
+ File::Spec: 0
+ Test::More: 0
+configure_requires:
+ ExtUtils::MakeMaker: 6.42
+distribution_type: module
+generated_by: 'Module::Install version 1.01'
+license: gpl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: check_updates
+no_index:
+ directory:
+ - inc
+ - t
+requires:
+ Carp: 0
+ English: 0
+ Nagios::Plugin: 0
+ Nagios::Plugin::Getopt: 0
+ Nagios::Plugin::Threshold: 0
+ POSIX: 0
+ Readonly: 0
+ Sort::Versions: 0
+ perl: 5.8.0
+resources:
+ license: http://opensource.org/licenses/gpl-license.php
+version: 1.5.2
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/NEWS
^
|
| @@ -1,4 +1,8 @@
-2012-04-15: 1.6.0 - added an option --security-only to ignore non-security related updates
+2013-03-29: 1.6.2 - Applied a patch adding the possibility to pass arguments
+ to Yum
+2012-09-03: 1.6.1 - recognizes PUIAS Lunux
+2012-04-15: 1.6.0 - added an option --security-only to ignore non-security
+ related updates
2011-12-04: 1.5.2 - fixed a bug in system detection
2011-12-03: 1.5.1 - applied a patch to support Amazon Linux
2011-10-03: 1.5.0 - fixed a bug which caused -w and -c to be ignored
@@ -44,7 +48,7 @@
First stable release
2008-02-21: 0.9.9 - checks if the running kernel is the latest installed
-# $Id: NEWS 1296 2012-04-15 19:27:18Z corti $
-# $Revision: 1296 $
+# $Id: NEWS 1331 2013-03-29 13:31:14Z corti $
+# $Revision: 1331 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/NEWS $
-# $Date: 2012-04-15 21:27:18 +0200 (Sun, 15 Apr 2012) $
+# $Date: 2013-03-29 14:31:14 +0100 (Fri, 29 Mar 2013) $
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/check_updates
^
|
| @@ -18,17 +18,17 @@
# enable substitution with:
# $ svn propset svn:keywords "Id Revision HeadURL Source Date"
#
-# $Id$
-# $Revision$
-# $HeadURL$
-# $Date$
+# $Id: check_updates 1331 2013-03-29 13:31:14Z corti $
+# $Revision: 1331 $
+# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/check_updates $
+# $Date: 2013-03-29 14:31:14 +0100 (Fri, 29 Mar 2013) $
use 5.00800;
use strict;
use warnings;
-our $VERSION = '1.6.0';
+our $VERSION = '1.6.2';
use Carp;
use English qw(-no_match_vars);
@@ -59,10 +59,11 @@
$help
$options
$plugin
- $threshold
$security_plugin
- $wrong_kernel
$status
+ $threshold
+ $wrong_kernel
+ $yum_executable
@status_lines
);
## use critic
@@ -70,6 +71,11 @@
# the script is declared as a package so that it can be unit tested
# but it should not be used as a module
if ( !caller ) {
+
+ # set the yum executable (the value can be overridden in the
+ # tests to a mock
+ $yum_executable = 'yum';
+
run();
}
@@ -299,7 +305,7 @@
##############################################################################
# Usage : run_yum();
-# Purpose : runs yum check-updates with the supplied command line argumens
+# Purpose : runs yum check-update with the supplied command line argumens
# Returns : the list of updates
# Arguments : string with the command line arguments
# Throws : n/a
@@ -313,7 +319,9 @@
my $OUTPUT_HANDLER;
my @updates;
- my $command = "yum $arguments check-update";
+ my $command = "$yum_executable $arguments check-update";
+
+ verbose qq{Running "$command"\n}, 1;
#<<<
my $pid = open $OUTPUT_HANDLER, q{-|}, $command ## no critic (RequireBriefOpen)
@@ -384,15 +392,17 @@
# Usage : check_yum();
# Purpose : checks a yum based system for updates
# Returns : n/a
-# Arguments : n/a
+# Arguments : string with the command line arguments
# Throws : n/a
# Comments : n/a
# See also : n/a
## no critic (ProhibitExcessComplexity)
sub check_yum {
+ my $arguments = shift;
+
my $message;
- my @outdated = run_yum(q{});
+ my @outdated = run_yum($arguments);
my @security_updates;
$plugin->add_perfdata(
@@ -440,7 +450,7 @@
$status = OK;
}
- @security_updates = run_yum('--security');
+ @security_updates = run_yum( '--security ' . $arguments );
if ( @security_updates > 0 ) {
@@ -675,8 +685,10 @@
if ( $name =~ /Fedora/mxs
|| $name =~ /CentOS/mxs
+ || $name =~ /PUIAS/mxs
|| $name =~ /Scientific[ ]Linux/mxs
|| $name =~ /Red[ ]Hat.*[ ][56]/mxs
+ || $name =~ /Oracle/mxs
|| $name =~ /Amazon/mxs )
{
return 'yum';
@@ -751,6 +763,12 @@
help => 'Ignores non-security updates',
);
+ $options->arg(
+ spec => 'yum-arguments|a=s',
+ help => 'specific Yum arguments as STRING',
+
+ );
+
$options->getopts();
###############
@@ -782,6 +800,14 @@
}
#########
+ # Arguments
+
+ my $arguments = q{};
+ if ( $options->get('yum-arguments') ) {
+ $arguments = $options->get('yum-arguments');
+ }
+
+ #########
# Timeout
alarm $options->timeout;
@@ -796,9 +822,9 @@
my $updater = get_updater($name);
if ( $updater eq 'yum' ) {
- verbose "Using yum\n";
+ verbose "Using Yum\n";
check_running_kernel();
- check_yum();
+ check_yum($arguments);
}
elsif ( $updater eq 'up2date' ) {
verbose "Using up2date\n";
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/check_updates.pod
^
|
| @@ -1,9 +1,9 @@
################################################################################
# File version information:
-# $Id: check_updates.pod 1296 2012-04-15 19:27:18Z corti $
-# $Revision: 1296 $
+# $Id: check_updates.pod 1331 2013-03-29 13:31:14Z corti $
+# $Revision: 1331 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/check_updates.pod $
-# $Date: 2012-04-15 21:27:18 +0200 (Sun, 15 Apr 2012) $
+# $Date: 2013-03-29 14:31:14 +0100 (Fri, 29 Mar 2013) $
################################################################################
=pod
@@ -20,7 +20,7 @@
=head1 VERSION
-Version 1.6.0
+Version 1.6.2
=head1 SYNOPSIS
@@ -44,6 +44,8 @@
Exit with CRITICAL status if more than INTEGER updates are available
--security-only
Ignores non-security updates
+ -a, --yum-arguments=STRING
+ specific Yum arguments as STRING
-t, --timeout=INTEGER
Seconds before plugin times out (default: 15)
-v, --verbose
@@ -69,6 +71,10 @@
--security-only Ignores non-security updates
+ -a, --yum-arguments=STRING Specifies additional arguments for Yum.
+ Arguments containing spaces must be quoted
+ (e.g., ./check_updates -a "-d 20")
+
-t, --timeout=INTEGER Seconds before plugin times out (default: 15)
-v, --verbose Show details for command-line debugging (can repeat up to 3 times)
@@ -189,4 +195,11 @@
=item * Jose Pedro Oliveria for the build and release fixes
+=item * Tomas Edwardsson for a patch fixing the detection of RH EL 6 systems
+
+=item * Cott Lang for the Amazon Linux patch
+
+=item * Joop Boonen for the yum arguments patch
+
+
=back
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/check_updates.spec
^
|
| @@ -1,12 +1,12 @@
################################################################################
# File version information:
-# $Id: check_updates.spec 1297 2012-04-15 19:43:35Z corti $
-# $Revision: 1297 $
+# $Id: check_updates.spec 1331 2013-03-29 13:31:14Z corti $
+# $Revision: 1331 $
# $HeadURL: https://svn.id.ethz.ch/nagios_plugins/check_updates/check_updates.spec $
-# $Date: 2012-04-15 21:43:35 +0200 (Sun, 15 Apr 2012) $
+# $Date: 2013-03-29 14:31:14 +0100 (Fri, 29 Mar 2013) $
################################################################################
-%define version 1.6.0
+%define version 1.6.2
%define release 0
%define sourcename check_updates
%define packagename nagios-plugins-check-updates
@@ -73,6 +73,12 @@
%{_mandir}/man1/%{sourcename}.1*
%changelog
+* Fri Mar 29 2013 Matteo Corti <matteo.corti@id.ethz.ch> - 1.6.2-0
+- Updated to 1.6.2 (Yum arguments patch)
+
+* Mon Sep 3 2012 Matteo Corti <matteo.corti@id.ethz.ch> - 1.6.1-0
+- Updated to 1.6.1 (PUIAS Linux)
+
* Sun Apr 15 2012 Matteo Corti <matteo.corti@id.ethz.ch> - 1.6.0-0
- Updated to 1.6.0 (--security-only option)
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install.pm
^
|
| @@ -22,7 +22,6 @@
use Cwd ();
use File::Find ();
use File::Path ();
-use FindBin;
use vars qw{$VERSION $MAIN};
BEGIN {
@@ -32,7 +31,7 @@
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
- $VERSION = '0.97';
+ $VERSION = '1.01';
# Storage for the pseudo-singleton
$MAIN = undef;
@@ -231,7 +230,12 @@
sub new {
my ($class, %args) = @_;
- FindBin->again;
+ delete $INC{'FindBin.pm'};
+ {
+ # to suppress the redefine warning
+ local $SIG{__WARN__} = sub {};
+ require FindBin;
+ }
# ignore the prefix on extension modules built from top level.
my $base_path = Cwd::abs_path($FindBin::Bin);
@@ -463,4 +467,4 @@
1;
-# Copyright 2008 - 2010 Adam Kennedy.
+# Copyright 2008 - 2011 Adam Kennedy.
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install/Base.pm
^
|
| @@ -4,7 +4,7 @@
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.01';
}
# Suspend handler for "redefined" warnings
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install/Include.pm
^
|
| @@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install/MakeMaker.pm
^
|
| @@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install/Makefile.pm
^
|
| @@ -4,10 +4,11 @@
use strict 'vars';
use ExtUtils::MakeMaker ();
use Module::Install::Base ();
+use Fcntl qw/:flock :seek/;
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -364,9 +365,9 @@
. ($self->postamble || '');
local *MAKEFILE;
- open MAKEFILE, "< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+ open MAKEFILE, "+< $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+ eval { flock MAKEFILE, LOCK_EX };
my $makefile = do { local $/; <MAKEFILE> };
- close MAKEFILE or die $!;
$makefile =~ s/\b(test_harness\(\$\(TEST_VERBOSE\), )/$1'inc', /;
$makefile =~ s/( -I\$\(INST_ARCHLIB\))/ -Iinc$1/g;
@@ -386,7 +387,8 @@
# XXX - This is currently unused; not sure if it breaks other MM-users
# $makefile =~ s/^pm_to_blib\s+:\s+/pm_to_blib :: /mg;
- open MAKEFILE, "> $makefile_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
+ seek MAKEFILE, 0, SEEK_SET;
+ truncate MAKEFILE, 0;
print MAKEFILE "$preamble$makefile$postamble" or die $!;
close MAKEFILE or die $!;
@@ -410,4 +412,4 @@
__END__
-#line 539
+#line 541
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install/Metadata.pm
^
|
| @@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
@@ -515,6 +515,7 @@
'GNU Free Documentation license' => 'unrestricted', 1,
'GNU Affero General Public License' => 'open_source', 1,
'(?:Free)?BSD license' => 'bsd', 1,
+ 'Artistic license 2\.0' => 'artistic_2', 1,
'Artistic license' => 'artistic', 1,
'Apache (?:Software )?license' => 'apache', 1,
'GPL' => 'gpl', 1,
@@ -550,9 +551,9 @@
sub _extract_bugtracker {
my @links = $_[0] =~ m#L<(
- \Qhttp://rt.cpan.org/\E[^>]+|
- \Qhttp://github.com/\E[\w_]+/[\w_]+/issues|
- \Qhttp://code.google.com/p/\E[\w_\-]+/issues/list
+ https?\Q://rt.cpan.org/\E[^>]+|
+ https?\Q://github.com/\E[\w_]+/[\w_]+/issues|
+ https?\Q://code.google.com/p/\E[\w_\-]+/issues/list
)>#gx;
my %links;
@links{@links}=();
@@ -616,8 +617,15 @@
return $v;
}
-
-
+sub add_metadata {
+ my $self = shift;
+ my %hash = @_;
+ for my $key (keys %hash) {
+ warn "add_metadata: $key is not prefixed with 'x_'.\n" .
+ "Use appopriate function to add non-private metadata.\n" unless $key =~ /^x_/;
+ $self->{values}->{$key} = $hash{$key};
+ }
+}
######################################################################
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/Module/Install/Scripts.pm
^
|
| @@ -6,7 +6,7 @@
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
- $VERSION = '0.97';
+ $VERSION = '1.01';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/inc/version.pm
^
|
| @@ -7,7 +7,7 @@
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
-$VERSION = 0.82;
+$VERSION = 0.95;
$CLASS = 'version';
@@ -115,48 +115,41 @@
#--------------------------------------------------------------------------#
-eval "use version::vxs $VERSION";
-if ( $@ ) { # don't have the XS version installed
- eval "use version::vpp $VERSION"; # don't tempt fate
- die "$@" if ( $@ );
- push @ISA, "version::vpp";
- local $^W;
- *version::qv = \&version::vpp::qv;
- *version::declare = \&version::vpp::declare;
- *version::_VERSION = \&version::vpp::_VERSION;
- if ($] > 5.009001 && $] < 5.010000) {
- no strict 'refs';
- *version::stringify = \&version::vpp::stringify;
- *{'version::(""'} = \&version::vpp::stringify;
- *version::new = \&version::vpp::new;
- }
- elsif ($] == 5.010000 || $] == 5.010001) {
- no strict 'refs';
- *version::stringify = \&version::vpp::stringify;
- *{'version::(""'} = \&version::vpp::stringify;
- *version::new = \&version::vpp::new;
- *version::parse = \&version::vpp::parse;
- }
-}
-else { # use XS module
- push @ISA, "version::vxs";
- local $^W;
- *version::declare = \&version::vxs::declare;
- *version::qv = \&version::vxs::qv;
- *version::_VERSION = \&version::vxs::_VERSION;
- if ($] > 5.009001 && $] < 5.010000) {
- no strict 'refs';
- *version::stringify = \&version::vxs::stringify;
- *{'version::(""'} = \&version::vxs::stringify;
- }
- elsif ($] == 5.010000 || $] == 5.010001) {
- no strict 'refs';
- *version::stringify = \&version::vxs::stringify;
- *{'version::(""'} = \&version::vxs::stringify;
- *version::new = \&version::vxs::new;
- *version::parse = \&version::vxs::parse;
+{
+ local $SIG{'__DIE__'};
+ eval "use version::vxs $VERSION";
+ if ( $@ ) { # don't have the XS version installed
+ eval "use version::vpp $VERSION"; # don't tempt fate
+ die "$@" if ( $@ );
+ push @ISA, "version::vpp";
+ local $^W;
+ *version::qv = \&version::vpp::qv;
+ *version::declare = \&version::vpp::declare;
+ *version::_VERSION = \&version::vpp::_VERSION;
+ if ($] >= 5.009000) {
+ no strict 'refs';
+ *version::stringify = \&version::vpp::stringify;
+ *{'version::(""'} = \&version::vpp::stringify;
+ *version::new = \&version::vpp::new;
+ *version::parse = \&version::vpp::parse;
+ }
}
+ else { # use XS module
+ push @ISA, "version::vxs";
+ local $^W;
+ *version::declare = \&version::vxs::declare;
+ *version::qv = \&version::vxs::qv;
+ *version::_VERSION = \&version::vxs::_VERSION;
+ *version::vcmp = \&version::vxs::VCMP;
+ if ($] >= 5.009000) {
+ no strict 'refs';
+ *version::stringify = \&version::vxs::stringify;
+ *{'version::(""'} = \&version::vxs::stringify;
+ *version::new = \&version::vxs::new;
+ *version::parse = \&version::vxs::parse;
+ }
+ }
}
# Preloaded methods go here.
@@ -208,14 +201,12 @@
}
if (exists($args{'is_strict'})) {
- *{$callpkg.'::is_strict'} =
- sub {return $class->is_strict(shift)}
+ *{$callpkg.'::is_strict'} = \&version::is_strict
unless defined(&{$callpkg.'::is_strict'});
}
if (exists($args{'is_lax'})) {
- *{$callpkg.'::is_lax'} =
- sub {return $class->is_lax(shift)}
+ *{$callpkg.'::is_lax'} = \&version::is_lax
unless defined(&{$callpkg.'::is_lax'});
}
}
|
|
[-]
[+]
|
Changed |
check_updates-1.6.2.tar.bz2/t/01_functions.t
^
|
| @@ -10,7 +10,7 @@
use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More tests => 17;
use File::Spec;
@@ -32,12 +32,17 @@
is(
get_os_name_and_version('t/examples/fedora_14'),
'Fedora release 14 (Laughlin)',
- '/etc/redhat-release Fedora'
+ '/etc/redhat-release Fedora 14'
);
is(
get_os_name_and_version('t/examples/fedora_15'),
'Fedora release 15 (Lovelock)',
- '/etc/redhat-release Fedora'
+ '/etc/redhat-release Fedora 15'
+);
+is(
+ get_os_name_and_version('t/examples/fedora_17'),
+ 'Fedora release 17 (Beefy Miracle)',
+ '/etc/system-release Fedora 17'
);
is(
get_os_name_and_version('t/examples/rhel_4'),
@@ -54,6 +59,16 @@
'Scientific Linux release 6.0 (Carbon)',
'/etc/redhat-release Scientific Linux'
);
+is(
+ get_os_name_and_version('t/examples/scientific_linux_6'),
+ 'Scientific Linux release 6.0 (Carbon)',
+ '/etc/redhat-release Scientific Linux'
+);
+is(
+ get_os_name_and_version('t/examples/puias_6.2'),
+ 'PUIAS Linux release 6.2 (Pisa)',
+ '/etc/system-release PUIAS Linux 6.2'
+);
is( get_updater('Fedora release 14 (Laughlin)'), 'yum', 'updater Fedora' );
is( get_updater('Fedora release 15 (Lovelock)'), 'yum', 'updater Fedora' );
|
|
[-]
[+]
|
Added |
check_updates-1.6.2.tar.bz2/t/examples/fedora_17
^
|
| @@ -0,0 +1 @@
+Fedora release 17 (Beefy Miracle)
|
|
[-]
[+]
|
Added |
check_updates-1.6.2.tar.bz2/t/examples/puias_6.2
^
|
| @@ -0,0 +1 @@
+PUIAS Linux release 6.2 (Pisa)
|
