top level hosts/error value

diff --git a/t/hosts.t b/t/hosts.t
index ed6c1e9..323dcde 100644 (file)
--- a/t/hosts.t
+++ b/t/hosts.t
@@ -7,7 +7,11 @@ use System::Introspector::Hosts;
 my $probe = System::Introspector::Hosts->new(
     hosts_file => "$FindBin::Bin/data/hosts",
 );
-my $data  = $probe->gather;
+
+my $result = $probe->gather;
+ok $result, 'received data';
+my $data = $result->{hosts};
+ok $data, 'received hosts data';
 
 is_deeply $data,
     [['1.2.3.4', qw( foo bar )], ['2.3.4.5', 'bar']],