xt/bridged-remote.t

   1 use strictures 1;
   2 use Test::More;
   3 use Test::Fatal;
   4 use FindBin;
   5
   6 use lib "$FindBin::Bin/lib";
   7
   8 use TestClass;
   9 use Object::Remote;
  10
  11 is exception {
  12   my $bridge = TestBridge->new::on('-');
  13   is $bridge->result, 23;
  14 }, undef, 'no error during bridge access';
  15
  16 done_testing;