[scpubgit/System-Introspector.git] / t / groups.t

use strictures 1;
use Test::More;

use System::Introspector::Groups;

my $probe = System::Introspector::Groups->new;
my $data  = $probe->gather;

ok scalar(keys %$data), 'received group data';
ok not(grep { not defined $_->{gid} } values %$data), 'all have gid';
ok not(grep { not defined $_->{name} } values %$data), 'all have name';
ok not(grep { not defined $_->{users} } values %$data), 'all have users';

done_testing;
Commit	Line	Data
9daad8a7	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;