view release on metacpan or  search on metacpan

t/200_middlewares/uploadtemp/cleanup.t  view on Meta::CPAN

use t::200_middlewares::uploadtemp::base;
use Test::More tests => 5;

my $base_tmp   = quotemeta(File::Spec->tmpdir);
my $upload_tmpdir;
my $he = new_engine {
    my $req = shift;
    $upload_tmpdir = $req->request_builder->upload_tmp;
    if ($req->method eq 'POST') {
        ok(-f $req->upload('upfile')->tempname, 'upload file');
    }
} {
    cleanup => 1
};

$he->run(
    POST 'http://example.com/',
    Content_Type => 'form-data',
    Content      => [
        upfile => ['README'],
    ],
);
like($upload_tmpdir, qr{\A$base_tmp}, 'base tmpdir');
ok(-d $upload_tmpdir, 'alive tmpdir');


END {
    # cleanup by File::Temp's END block
    ok(!-d $upload_tmpdir, 'not alive tmpdir');
    ok(!rmtree($upload_tmpdir, 0), 'rmtree');
}