top level resolv_conf/error value

diff --git a/t/resolvconf.t b/t/resolvconf.t
index 79839e5..4d927f0 100644 (file)
--- a/t/resolvconf.t
+++ b/t/resolvconf.t
@@ -7,7 +7,10 @@ use System::Introspector::ResolvConf;
 my $probe = System::Introspector::ResolvConf->new(
     resolv_conf_file => "$FindBin::Bin/data/resolv.conf",
 );
-my $data = $probe->gather;
+my $result = $probe->gather;
+ok $result, 'received data';
+my $data = $result->{resolv_conf};
+ok $data, 'received resolv.conf data';
 
 is_deeply $data,
     [[qw( domain foo )],