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

use strictures 1;
use Test::More;
use Test::Fatal;
use FindBin;

use lib "$FindBin::Bin/lib";

require 't/logsetup.pl';

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;
Commit	Line	Data
852c2b28	1	use strictures 1;
	2	use Test::More;
	3	use Test::Fatal;
	4	use FindBin;
	5
	6	use lib "$FindBin::Bin/lib";
	7
f129bfaf	8	require 't/logsetup.pl';
f129bfaf	9
852c2b28	10	use Object::Remote;
	11
	12	is exception {
97c80c76	13	my $bridge = ORTestBridge->new::on('-'); #'localhost');
852c2b28	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;