Commit | Line | Data |
a2598396 |
1 | use strictures 1; |
2 | use Test::More; |
3 | |
afd7c030 |
4 | use System::Introspector::Probe::Users; |
a2598396 |
5 | |
afd7c030 |
6 | my $probe = System::Introspector::Probe::Users->new; |
a2598396 |
7 | my $data = $probe->gather; |
8 | |
386a00c7 |
9 | ok((my $user = $data->{users}{ +getlogin }), 'found own user'); |
a2598396 |
10 | ok(defined($user->{ $_ }), "$_ is defined") |
11 | for qw( comment crontab gid groups home shell ssh uid username ); |
12 | ok(not(exists $user->{crontab}{error}), 'no crontab error'); |
b535ee84 |
13 | is($user->{ssh}{keys}{error}, undef, 'no ssh keys error'); |
a2598396 |
14 | |
15 | done_testing; |