user result now under 'users' key
Robert 'phaylon' Sedlacek [Wed, 9 May 2012 23:13:31 +0000 (23:13 +0000)]
t/users.t

index f74f42a..2e9d653 100644 (file)
--- 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;