[catagits/Web-Simple.git] / t / leak.t

use strictures;
use Test::More eval { require Devel::Cycle } ? 'no_plan' : ( skip_all => 'No Devel::Cycle' );

use Web::Simple;
use Devel::Cycle;

my $counter;
my $on_cycle = sub { Devel::Cycle::_do_report( ++$counter, shift ) };
{
    local *STDOUT = *STDERR;
    Devel::Cycle::find_cycle( main->new->to_psgi_app, $on_cycle );
}
ok !$counter, "no leak in to_psgi_app";

done_testing;
Commit	Line	Data
7d354f1f	1	use strictures;
	2	use Test::More eval { require Devel::Cycle } ? 'no_plan' : ( skip_all => 'No Devel::Cycle' );
	3
	4	use Web::Simple;
	5	use Devel::Cycle;
	6
	7	my $counter;
	8	my $on_cycle = sub { Devel::Cycle::_do_report( ++$counter, shift ) };
	9	{
	10	local STDOUT = STDERR;
	11	Devel::Cycle::find_cycle( main->new->to_psgi_app, $on_cycle );
	12	}
	13	ok !$counter, "no leak in to_psgi_app";
	14
	15	done_testing;