[catagits/Catalyst-Runtime.git] / t / live_component_controller_context_closure.t

use strict;
use warnings;
use Test::More;

BEGIN {
    unless (eval 'use CatalystX::LeakChecker 0.05; 1') {
        plan skip_all => 'CatalystX::LeakChecker 0.05 required for this test';
    }

    plan tests => 4;
}

use FindBin;
use lib "$FindBin::Bin/lib";

use Catalyst::Test 'TestApp';

{
    my ($resp, $ctx) = ctx_request('/contextclosure/normal_closure');
    ok($resp->is_success);
    is($ctx->count_leaks, 1);
}

{
    my ($resp, $ctx) = ctx_request('/contextclosure/context_closure');
    ok($resp->is_success);
    is($ctx->count_leaks, 0);
}
Commit	Line	Data
d9d8aa51	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	BEGIN {
ec9984c8	6	unless (eval 'use CatalystX::LeakChecker 0.05; 1') {
ec9984c8	7	plan skip_all => 'CatalystX::LeakChecker 0.05 required for this test';
d9d8aa51	8	}
	9
	10	plan tests => 4;
	11	}
	12
	13	use FindBin;
	14	use lib "$FindBin::Bin/lib";
	15
	16	use Catalyst::Test 'TestApp';
	17
	18	{
	19	my ($resp, $ctx) = ctx_request('/contextclosure/normal_closure');
	20	ok($resp->is_success);
	21	is($ctx->count_leaks, 1);
	22	}
	23
	24	{
	25	my ($resp, $ctx) = ctx_request('/contextclosure/context_closure');
	26	ok($resp->is_success);
	27	is($ctx->count_leaks, 0);
	28	}