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;