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

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

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

use Object::Remote;

my $strA = 'foo';
my $strB = 'bar';

is exception {
  my $proxy = ORTestTransfer->new::on('-', value => \$strA);
  is_deeply $proxy->value, \$strA, 'correct value after construction';
}, undef, 'no errors during construction';

is exception {
  my $proxy = ORTestTransfer->new::on('-');
  $proxy->value(\$strB);
  is_deeply $proxy->value, \$strB, 'correct value after construction';
}, undef, 'no errors during attribute set';

done_testing;
Commit	Line	Data
6ed5d580	1	use strictures 1;
	2	use Test::More;
	3	use Test::Fatal;
	4
	5	$ENV{PERL5LIB} = join(
	6	':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib t/lib)
	7	);
	8
	9	use Object::Remote;
	10
	11	my $strA = 'foo';
	12	my $strB = 'bar';
	13
	14	is exception {
	15	my $proxy = ORTestTransfer->new::on('-', value => \$strA);
	16	is_deeply $proxy->value, \$strA, 'correct value after construction';
	17	}, undef, 'no errors during construction';
	18
	19	is exception {
	20	my $proxy = ORTestTransfer->new::on('-');
	21	$proxy->value(\$strB);
	22	is_deeply $proxy->value, \$strB, 'correct value after construction';
	23	}, undef, 'no errors during attribute set';
	24
	25	done_testing;