From: Robert 'phaylon' Sedlacek Date: Wed, 9 May 2012 23:13:31 +0000 (+0000) Subject: user result now under 'users' key X-Git-Tag: v0.001_001~94 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b535ee84aa3a8fa959e0ee278faada175f5d69a0;p=scpubgit%2FSystem-Introspector.git user result now under 'users' key --- diff --git a/t/users.t b/t/users.t index f74f42a..2e9d653 100644 --- a/t/users.t +++ b/t/users.t @@ -6,10 +6,10 @@ use System::Introspector::Users; my $probe = System::Introspector::Users->new; my $data = $probe->gather; -ok((my $user = $data->{ $> }), 'found own user'); +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'); -ok(not(exists $user->{ssh}{keys}{error}), 'no ssh keys error'); +is($user->{ssh}{keys}{error}, undef, 'no ssh keys error'); done_testing;