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') { |
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 | } |