test for bridge to local

diff --git a/t/bridged.t b/t/bridged.t
new file mode 100644 (file)
index 0000000..2c4c24b
--- /dev/null
+++ b/t/bridged.t
@@ -0,0 +1,17 @@
+use strictures 1;
+use Test::More;
+use Test::Fatal;
+use FindBin;
+
+use lib "$FindBin::Bin/lib";
+
+use Object::Remote;
+
+is exception {
+  my $bridge = ORTestBridge->new::on('localhost');
+  is $bridge->call('counter'), 0;
+  $bridge->call('increment');
+  is $bridge->call('counter'), 1;
+}, undef, 'no error during bridge access';
+
+done_testing;

diff --git a/t/lib/ORTestBridge.pm b/t/lib/ORTestBridge.pm
new file mode 100644 (file)
index 0000000..26556c9
--- /dev/null
+++ b/t/lib/ORTestBridge.pm
@@ -0,0 +1,15 @@
+package ORTestBridge;
+use Moo;
+
+use Object::Remote;
+
+has object => (is => 'lazy');
+
+sub _build_object { ORTestClass->new::on('-') }
+
+sub call {
+  my ($self, $method, @args) = @_;
+  return $self->object->$method(@args);
+}
+
+1;