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

use strictures 1;
use Test::More;

use Object::Remote::Connector::Local;
use Object::Remote;

$ENV{PERL5LIB} = join(
  ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib t/lib)
);

my $connection = Object::Remote::Connector::Local->new->connect;

#$Object::Remote::Connection::DEBUG = 1;

my $proxy = Object::Remote->new(
  connection => $connection,
  class => 'ORTestClass'
)->proxy;

isnt($$, $proxy->pid, 'Different pid on the other side');

is($proxy->counter, 0, 'Counter at 0');

is($proxy->increment, 1, 'Increment to 1');

is($proxy->counter, 1, 'Counter at 1');

done_testing;
Commit	Line	Data
b63a955f	1	use strictures 1;
	2	use Test::More;
	3
	4	use Object::Remote::Connector::Local;
	5	use Object::Remote;
	6
	7	$ENV{PERL5LIB} = join(
	8	':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib t/lib)
	9	);
	10
	11	my $connection = Object::Remote::Connector::Local->new->connect;
	12
	13	#$Object::Remote::Connection::DEBUG = 1;
	14
	15	my $proxy = Object::Remote->new(
	16	connection => $connection,
	17	class => 'ORTestClass'
	18	)->proxy;
	19
	20	isnt($$, $proxy->pid, 'Different pid on the other side');
	21
	22	is($proxy->counter, 0, 'Counter at 0');
	23
	24	is($proxy->increment, 1, 'Increment to 1');
	25
	26	is($proxy->counter, 1, 'Counter at 1');
	27
	28	done_testing;