X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Fbasic.t;h=4529e5502def9b541fc33f20b7f07aebf48542de;hp=24913dc95950eb1761be90fa535efba7e20941b5;hb=c6fe6fbd88a05e860ecdc8942cb86940915172ed;hpb=82964de1dc8f9d772069de31db1d62dcb90af1a7

diff --git a/t/basic.t b/t/basic.t
index 24913dc..4529e55 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -1,5 +1,6 @@
 use strictures 1;
 use Test::More;
+use Sys::Hostname qw(hostname);
 
 use Object::Remote::Connector::Local;
 use Object::Remote;
@@ -31,4 +32,10 @@ is($remote->call_callback(27, sub { $x++ }), 27, "Callback ok");
 
 is($x, 1, "Callback called callback");
 
+is(
+  $connection->get_remote_sub('Sys::Hostname::hostname')->(),
+  hostname(),
+  'Remote sub call ok'
+);
+
 done_testing;