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