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

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

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

$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;

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
abef6e5b	8	$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
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;