t/users.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use System::Introspector::Users;
   5
   6 my $probe = System::Introspector::Users->new;
   7 my $data  = $probe->gather;
   8
   9 ok((my $user = $data->{users}{ +getlogin }), 'found own user');
  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');
  13 is($user->{ssh}{keys}{error}, undef, 'no ssh keys error');
  14
  15 done_testing;