xt for bridged remote objects

[scpubgit/Object-Remote.git] / xt / bridged-remote.t

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;