xt for bridged remote objects

diff --git a/xt/bridged-remote.t b/xt/bridged-remote.t
new file mode 100644 (file)
index 0000000..abfbcd5
--- /dev/null
+++ b/xt/bridged-remote.t
@@ -0,0 +1,16 @@
+use strictures 1;
+use Test::More;
+use Test::Fatal;
+use FindBin;
+
+use lib "$FindBin::Bin/lib";
+
+use TestClass;
+use Object::Remote;
+
+is exception {
+  my $bridge = TestBridge->new::on('localhost');
+  is $bridge->result, 23;
+}, undef, 'no error during bridge access';
+
+done_testing;

diff --git a/xt/lib/TestBridge.pm b/xt/lib/TestBridge.pm
new file mode 100644 (file)
index 0000000..7a8b82a
--- /dev/null
+++ b/xt/lib/TestBridge.pm
@@ -0,0 +1,13 @@
+package TestBridge;
+use Moo;
+
+use TestClass;
+use Object::Remote;
+
+has object => (is => 'lazy');
+
+sub _build_object { TestClass->new::on('root@') }
+
+sub result { (shift)->object->result }
+
+1;

diff --git a/xt/lib/TestClass.pm b/xt/lib/TestClass.pm
new file mode 100644 (file)
index 0000000..7efaf1d
--- /dev/null
+++ b/xt/lib/TestClass.pm
@@ -0,0 +1,6 @@
+package TestClass;
+use Moo;
+
+sub result { 23 }
+
+1;