t/bridged.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 Object::Remote;
   9
  10 is exception {
  11   my $bridge = ORTestBridge->new::on('-'); #'localhost');
  12   is $bridge->call('counter'), 0;
  13   $bridge->call('increment');
  14   is $bridge->call('counter'), 1;
  15 }, undef, 'no error during bridge access';
  16
  17 done_testing;