4 use System::Introspector::Probe::Nagios::CheckMkAgent;
6 no warnings 'redefine';
7 *System::Introspector::Probe::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
17 my $probe = System::Introspector::Probe::Nagios::CheckMkAgent->new;
18 my $data = $probe->gather;
21 { nagios_check_mk_agent => {
22 foo => [qw( bar baz )],
26 'output parsing worked';