t/groups.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use System::Introspector::Groups;
   5
   6 my $probe = System::Introspector::Groups->new;
   7 my $data  = $probe->gather;
   8
   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';
  13
  14 done_testing;