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