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

use strictures 1;
use Test::More;

use System::Introspector::Users;

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

ok((my $user = $data->{users}{ $> }), 'found own user');
ok(defined($user->{ $_ }), "$_ is defined")
    for qw( comment crontab gid groups home shell ssh uid username );
ok(not(exists $user->{crontab}{error}), 'no crontab error');
is($user->{ssh}{keys}{error}, undef, 'no ssh keys error');

done_testing;
Commit	Line	Data
a2598396	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
b535ee84	9	ok((my $user = $data->{users}{ $> }), '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
a2598396	15	done_testing;