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

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

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

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
	8	use Object::Remote;
	9
	10	is exception {
97c80c76	11	my $bridge = ORTestBridge->new::on('-'); #'localhost');
852c2b28	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;