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