35 lines
855 B
Perl
35 lines
855 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use Test::More;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
if (! -e "./test_ini3") {
|
||
|
|
plan skip_all => "./test_ini not compiled - please install tap library and/or enable parse-ini to test";
|
||
|
|
}
|
||
|
|
|
||
|
|
# array of argument arrays
|
||
|
|
# - First value is the expected return code
|
||
|
|
# - 2nd value is the NAGIOS_CONFIG_PATH
|
||
|
|
# TODO: looks like we look in default path after looking trough this variable - shall we?
|
||
|
|
# - 3rd value is the plugin name
|
||
|
|
# - 4th is the ini locator
|
||
|
|
my @TESTS = (
|
||
|
|
[3, undef, "section", "section_unknown@./config-tiny.ini"],
|
||
|
|
);
|
||
|
|
|
||
|
|
plan tests => scalar(@TESTS);
|
||
|
|
|
||
|
|
my $count=1;
|
||
|
|
|
||
|
|
foreach my $args (@TESTS) {
|
||
|
|
my $rc = shift(@$args);
|
||
|
|
if (my $env = shift(@$args)) {
|
||
|
|
$ENV{"NAGIOS_CONFIG_PATH"} = $env;
|
||
|
|
} else {
|
||
|
|
delete($ENV{"NAGIOS_CONFIG_PATH"});
|
||
|
|
}
|
||
|
|
system {'./test_ini3'} @$args;
|
||
|
|
cmp_ok($?>>8, '==', $rc, "Parse-ini die " . $count++);
|
||
|
|
}
|
||
|
|
|