X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Fbasic.t;h=329f606cfeaf0b79638e7d08f0626d7c2f941f80;hp=b5a83b7f6d6246dce10df358ccc9099f44a6a482;hb=710f1c32ba19676990ecda960c9eff96c4002328;hpb=11dbd4a02cce95ee689233d2b1d2392470518732 diff --git a/t/basic.t b/t/basic.t index b5a83b7..329f606 100644 --- a/t/basic.t +++ b/t/basic.t @@ -2,6 +2,8 @@ use strictures 1; use Test::More; use Sys::Hostname qw(hostname); +$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1; + use Object::Remote; $ENV{PERL5LIB} = join( @@ -29,7 +31,7 @@ is($remote->call_callback(27, sub { $x++ }), 27, "Callback ok"); is($x, 1, "Callback called callback"); is( - $connection->remote_sub('Sys::Hostname::hostname')->(), + Sys::Hostname->can::on($connection, 'hostname')->(), hostname(), 'Remote sub call ok' );