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