Commit | Line | Data |
985c21e3 |
1 | use strictures 1; |
2 | use Test::More; |
7efea51f |
3 | use lib 'xt/lib'; |
985c21e3 |
4 | |
5 | use Object::Remote; |
dac97b35 |
6 | |
985c21e3 |
7 | |
8 | my $user = $ENV{TEST_SUDOUSER} |
9 | or plan skip_all => q{Requires TEST_SUDOUSER to be set}; |
10 | |
fbd3b8ec |
11 | my $conn = Object::Remote->connect('-')->connect("${user}\@"); |
12 | |
13 | my $remote = TestFindUser->new::on($conn); |
985c21e3 |
14 | my $remote_user = $remote->user; |
15 | like $remote_user, qr/^\d+$/, 'returned an int'; |
16 | isnt $remote_user, $<, 'ran as different user'; |
17 | |
b10f7b24 |
18 | $remote->send_err; |
19 | |
985c21e3 |
20 | done_testing; |