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

use strictures;

use Test::More;

use Scalar::Util 'weaken';
use Object::Remote::FromData;

my $conn_ref;
{
    my $conn = Object::Remote->connect( '-' );
    $conn_ref = \( $conn->{send_to_fh} );
    weaken $conn_ref;
    is My::TestClass->new::on( $conn )->run, 3, "correct output";
}
sleep 3;
is $$conn_ref, undef, "filehandle to ssh's STDIN is garbage-collected";

done_testing;

__DATA__

package My::TestClass;
use Moo;
sub run { "3" }
Commit	Line	Data
95ba4025	1	use strictures;
	2
	3	use Test::More;
	4
	5	use Scalar::Util 'weaken';
	6	use Object::Remote::FromData;
	7
	8	my $conn_ref;
	9	{
	10	my $conn = Object::Remote->connect( '-' );
	11	$conn_ref = \( $conn->{send_to_fh} );
	12	weaken $conn_ref;
	13	is My::TestClass->new::on( $conn )->run, 3, "correct output";
	14	}
	15	sleep 3;
	16	is $$conn_ref, undef, "filehandle to ssh's STDIN is garbage-collected";
	17
	18	done_testing;
	19
	20	__DATA__
	21
	22	package My::TestClass;
	23	use Moo;
	24	sub run { "3" }