Commit | Line | Data |
9daad8a7 |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
afd7c030 |
4 | use System::Introspector::Probe::Groups; |
9daad8a7 |
5 | |
afd7c030 |
6 | my $probe = System::Introspector::Probe::Groups->new; |
bca4cd05 |
7 | |
8 | my $result = $probe->gather; |
9 | ok $result, 'received data'; |
10 | my $data = $result->{groups}; |
11 | ok $data, 'received groups data'; |
9daad8a7 |
12 | |
13 | ok scalar(keys %$data), 'received group data'; |
14 | ok not(grep { not defined $_->{gid} } values %$data), 'all have gid'; |
15 | ok not(grep { not defined $_->{name} } values %$data), 'all have name'; |
16 | ok not(grep { not defined $_->{users} } values %$data), 'all have users'; |
17 | |
18 | done_testing; |