#!perl
use strict;
use warnings;
use Test::More 0.87_01;
use HTTP::Request::Common 'GET';
use Plack::Test 'test_psgi';
use Plack::Builder;
my $x;
my $app = builder {
enable 'Cleanup';
sub {
my $env = shift;
$env->{'cleanup.register'}->(sub { $x++ });
return sub {
my $respond = shift;
my $writer = $respond->([200,[]]);
ok( ! $x );
$writer->write("some data");
ok( ! $x );
$writer->close;
ok( ! $x );
};
};
};
test_psgi $app, sub {
my $cb = shift;
my $res = $cb->(GET '/');
ok( $x );
};
done_testing;