nagios_nrpe/tests/050-misc.t

#!/usr/bin/perl

use warnings;
use strict;
BEGIN {
    use File::Basename;
    use lib (dirname(__FILE__));
}

use Test::More tests => 6;
use nrpe;

my @output;


# Various misc tests. Some just for code coverage

@output = `$checknrpe`;
is($?, STATE_UNKNOWN, 'usage') || diag @output;
@output = `$checknrpe -l`;
is($?, STATE_UNKNOWN, 'license') || diag @output;
@output = `$checknrpe -f configs/check_nrpe.cfg`;
is($?, STATE_UNKNOWN, 'config') || diag @output;
@output = `$checknrpe -f configs/nonexistant.cfg`;
is($?, STATE_UNKNOWN, 'config nonexistant') || diag @output;
@output = `$checknrpe -f configs/check_nrpe.cfg -H 127.0.0.1 -p 40000`;
is($?, STATE_CRITICAL, 'invalid port') || diag @output;

# We're trying to invoke alarm_handler() due to a timeout. Use an IP address that shouldn't be in use
@output = `$checknrpe -f configs/check_nrpe.cfg -t 1:WARNING -H 0.0.0.111 -p 40000`;
is($?, STATE_WARNING, 'invalid ip') || diag @output;