7 ':', ($ENV{PERL5LIB} ? $ENV{PERL5LIB} : ()), qw(lib t/lib)
16 my $proxy = ORTestTransfer->new::on('-', value => \$strA);
17 is_deeply $proxy->value, \$strA, 'correct value after construction';
18 }, undef, 'scalar refs - no errors during construction';
21 my $proxy = ORTestTransfer->new::on('-');
22 $proxy->value(\$strB);
23 is_deeply $proxy->value, \$strB, 'correct value after construction';
24 }, undef, 'scalar refs - no errors during attribute set';
26 my $data_file = "$FindBin::Bin/data/numbers.txt";
30 open my $fh, '>', \$out or die "Unable to open in-memory file: $!\n";
31 my $proxy = ORTestGlobs->new::on('-', handle => $fh);
32 ok $proxy->handle, 'filehandle was set';
33 ok $proxy->write('foo'), 'write was successful';
34 is $out, 'foo', 'write reached target';
35 }, undef, 'filehandles - no error during construction';
38 my $proxy = ORTestGlobs->new::on('-');
39 my $handle = $proxy->gethandle;
41 is $proxy->getvalue, 'foo', 'correct value written';
42 $handle->autoflush(1);
43 }, undef, 'filehandles - no error during remote handle';
46 my $proxy = ORTestGlobs->new::on('-');
47 my $rhandle = $proxy->getreadhandle($data_file);
48 my @lines = <$rhandle>;
50 is_deeply \@lines, [1 .. 5], 'reading back out of the handle';
51 }, undef, 'filehandles - no error during remote read';
54 my $proxy = ORTestGlobs->new::on('-');
55 my $rhandle = $proxy->getreadhandle($data_file);
57 }, undef, 'filehandles - no errors during binmode';