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

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

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

use TestClass;
use Object::Remote;

is exception {
  my $bridge = TestBridge->new::on('-');
  is $bridge->result, 23;
}, undef, 'no error during bridge access';

done_testing;
Commit	Line	Data
4829a0e1	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 TestClass;
	9	use Object::Remote;
	10
	11	is exception {
85152176	12	my $bridge = TestBridge->new::on('-');
4829a0e1	13	is $bridge->result, 23;
	14	}, undef, 'no error during bridge access';
	15
	16	done_testing;