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; |