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 | |
985c21e3 |
8 | |
9 | my $user = $ENV{TEST_SUDOUSER} |
10 | or plan skip_all => q{Requires TEST_SUDOUSER to be set}; |
11 | |
fbd3b8ec |
12 | my $conn = Object::Remote->connect('-')->connect("${user}\@"); |
13 | |
14 | my $remote = TestFindUser->new::on($conn); |
985c21e3 |
15 | my $remote_user = $remote->user; |
16 | like $remote_user, qr/^\d+$/, 'returned an int'; |
17 | isnt $remote_user, $<, 'ran as different user'; |
18 | |
b10f7b24 |
19 | $remote->send_err; |
20 | |
985c21e3 |
21 | done_testing; |