[scpubgit/System-Introspector.git] / t / nagios-checkmkagent.t

use strictures 1;
use Test::More;

use System::Introspector::Nagios::CheckMkAgent;

no warnings 'redefine';
*System::Introspector::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
    return map "$_\n",
        '<<<foo>>>',
        'bar',
        'baz',
        '<<<bar>>>',
        '<<<baz>>>',
        'qux';
};

my $probe = System::Introspector::Nagios::CheckMkAgent->new;
my $data = $probe->gather;

is_deeply $data,
    { foo => [qw( bar baz )], bar => [], baz => [qw( qux )] },
    'output parsing worked';

done_testing;
Commit	Line	Data
691c1b33	1	use strictures 1;
	2	use Test::More;
	3
	4	use System::Introspector::Nagios::CheckMkAgent;
	5
	6	no warnings 'redefine';
	7	*System::Introspector::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
	8	return map "$_\n",
	9	'<<<foo>>>',
	10	'bar',
	11	'baz',
	12	'<<<bar>>>',
	13	'<<<baz>>>',
	14	'qux';
	15	};
	16
	17	my $probe = System::Introspector::Nagios::CheckMkAgent->new;
	18	my $data = $probe->gather;
	19
	20	is_deeply $data,
	21	{ foo => [qw( bar baz )], bar => [], baz => [qw( qux )] },
	22	'output parsing worked';
	23
	24	done_testing;