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; |