Commit | Line | Data |
dac97b35 |
1 | use IO::Prompter; # dies, utterly, if loaded after strictures, no idea why |
985c21e3 |
2 | use strictures 1; |
3 | use Test::More; |
7efea51f |
4 | use lib 'xt/lib'; |
985c21e3 |
5 | |
6 | use Object::Remote; |
dac97b35 |
7 | use Object::Remote::Connector::LocalSudo; |
8 | |
985c21e3 |
9 | |
10 | my $user = $ENV{TEST_SUDOUSER} |
11 | or plan skip_all => q{Requires TEST_SUDOUSER to be set}; |
12 | |
dac97b35 |
13 | my $pw; |
14 | |
15 | my $connector = Object::Remote::Connector::LocalSudo->new( |
16 | password_callback => sub { |
17 | $pw ||= prompt 'Sudo password', -echo => '*'; |
18 | } |
19 | ); |
20 | |
21 | my $remote = TestFindUser->new::on($connector->connect($user)); |
985c21e3 |
22 | my $remote_user = $remote->user; |
23 | like $remote_user, qr/^\d+$/, 'returned an int'; |
24 | isnt $remote_user, $<, 'ran as different user'; |
25 | |
b10f7b24 |
26 | $remote->send_err; |
27 | |
985c21e3 |
28 | done_testing; |