t/nagios-checkmkagent.t

   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;