get_remote_sub

[scpubgit/Object-Remote.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
index 24913dc..4529e55 100644 (file)
--- 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;