4 use System::Introspector::Groups;
6 my $probe = System::Introspector::Groups->new;
7 my $data = $probe->gather;
9 ok scalar(keys %$data), 'received group data';
10 ok not(grep { not defined $_->{gid} } values %$data), 'all have gid';
11 ok not(grep { not defined $_->{name} } values %$data), 'all have name';
12 ok not(grep { not defined $_->{users} } values %$data), 'all have users';