X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Fperl_execute.t;h=e9c52d236fdf686ea55e38f48d84c4514d4b396e;hp=3792db42e7d8fb9c0b446350c589986eae8172d5;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=5ccce2d5c1fb651f83c73c811069003e4a591a53 diff --git a/t/perl_execute.t b/t/perl_execute.t index 3792db4..e9c52d2 100644 --- a/t/perl_execute.t +++ b/t/perl_execute.t @@ -3,8 +3,8 @@ use Test::More; $ENV{OBJECT_REMOTE_TEST_LOGGER} = 1; -use Object::Remote::Connector::Local; -use Object::Remote::Connector::SSH; +use Object::Remote::Connector::Local; +use Object::Remote::Connector::SSH; my $defaults = Object::Remote::Connector::Local->new; my $normal = $defaults->final_perl_command; @@ -17,5 +17,5 @@ is($defaults->stderr, undef, 'Child process STDERR is clone of parent process ST is_deeply($normal, ['perl', '-'], 'Default Perl interpreter arguments correct'); is_deeply($ssh, [qw(ssh -A testhost), "perl -"], "Arguments using ssh are correct"); -done_testing; +done_testing;