From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Thu, 10 May 2012 02:20:11 +0000 (+0000)
Subject: top level groups/error value
X-Git-Tag: v0.001_001~88
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bca4cd05a12a1250b0d44378a660e33071512563;p=scpubgit%2FSystem-Introspector.git

top level groups/error value
---

diff --git a/t/groups.t b/t/groups.t
index bba6548..cacae50 100644
--- 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';