top level groups/error value

diff --git a/t/groups.t b/t/groups.t
index bba6548..cacae50 100644 (file)
--- a/t/groups.t
+++ b/t/groups.t
@@ -4,7 +4,11 @@ use Test::More;
 use System::Introspector::Groups;
 
 my $probe = System::Introspector::Groups->new;
-my $data  = $probe->gather;
+
+my $result = $probe->gather;
+ok $result, 'received data';
+my $data = $result->{groups};
+ok $data, 'received groups data';
 
 ok scalar(keys %$data), 'received group data';
 ok not(grep { not defined $_->{gid} } values %$data), 'all have gid';