removed unrequired explicit 'list' data levels

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

use strictures 1;
use Test::More;
use FindBin;

use System::Introspector::Probe::Users;

my $passwd_file = "$FindBin::Bin/test-passwd";
my $home = "$FindBin::Bin/data/home-testfoo";
my $nohome = "$FindBin::Bin/data/home-doesnotexist";

open my $passwd_fh, '>', $passwd_file
    or die "Unable to write $passwd_file: $!\n";
printf $passwd_fh "%s\n", join ':', @$_
    for [qw( testfoo x 23 42 comment ), $home, '/bin/false'],
        [qw( testbar x 24 43 comment ), $nohome, '/bin/false'];
close $passwd_fh;

local $ENV{PATH} = join ':',
    "$FindBin::Bin/bin",
    $ENV{PATH};

my $probe = System::Introspector::Probe::Users->new(
    passwd_file => $passwd_file,
);
my $data = $probe->gather;

do {
    my $user = $data->{users}{testfoo};
    ok $user, 'found first user';

    my $keys = $user->{ssh}{keys};
    ok $keys, 'found ssh keys structure';

    is_deeply $keys, {
        files => {
            'first.pub' => {
                file_name => "$home/.ssh/first.pub",
                body => "pubkey\n",
            },
        },
        authorized => {
            file_name => "$home/.ssh/authorized_keys",
            body => "keyA\nkeyB\n",
        },
    }, 'ssh key data';

    is_deeply $user->{groups}, [qw(
        testfoo_group_A
        testfoo_group_B
        testfoo_group_C
    )], 'groups list';

    my $tab = $user->{crontab};
    ok $tab, 'got crontab results';
    like $tab->{body}, qr{-u\s*testfoo}, 'crontab called with user option';
    like $tab->{body}, qr{-l}, 'crontab asked for list';
};

do {
    my $user = $data->{users}{testbar};
    ok $user, 'found second user';

    my $keys = $user->{ssh}{keys};
    ok $keys, 'found ssh keys structure';

    is_deeply $keys, {
        files => {},
        authorized => {
            file_name => "$nohome/.ssh/authorized_keys",
            body => '',
        },
    }, 'ssh key data';
};

#ok((my $user = $data->{users}{ +getlogin }), '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');


unlink $passwd_file;
done_testing;