Release commit for 0.001_001
[scpubgit/System-Introspector.git] / t / nagios-checkmkagent.t
index 0ffcc08..77a7412 100644 (file)
@@ -1,10 +1,10 @@
 use strictures 1;
 use Test::More;
 
-use System::Introspector::Nagios::CheckMkAgent;
+use System::Introspector::Probe::Nagios::CheckMkAgent;
 
 no warnings 'redefine';
-*System::Introspector::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
+*System::Introspector::Probe::Nagios::CheckMkAgent::_get_check_mk_agent_output = sub {
     return map "$_\n",
         '<<<foo>>>',
         'bar',
@@ -14,11 +14,15 @@ no warnings 'redefine';
         'qux';
 };
 
-my $probe = System::Introspector::Nagios::CheckMkAgent->new;
+my $probe = System::Introspector::Probe::Nagios::CheckMkAgent->new;
 my $data = $probe->gather;
 
 is_deeply $data,
-    { foo => [qw( bar baz )], bar => [], baz => [qw( qux )] },
+    { nagios_check_mk_agent => {
+        foo => [qw( bar baz )],
+        bar => [],
+        baz => [qw( qux )],
+    } },
     'output parsing worked';
 
 done_testing;