1use t::200_middlewares::uploadtemp::base;
2use Test::More tests => 5;
3
4my $base_tmp   = quotemeta(File::Spec->tmpdir);
5my $upload_tmpdir;
6my $he = new_engine {
7    my $req = shift;
8    $upload_tmpdir = $req->request_builder->upload_tmp;
9    if ($req->method eq 'POST') {
10        ok(-f $req->upload('upfile')->tempname, 'upload file');
11    }
12} {
13    cleanup => 1
14};
15
16$he->run(
17    POST 'http://example.com/',
18    Content_Type => 'form-data',
19    Content      => [
20        upfile => ['README'],
21    ],
22);
23like($upload_tmpdir, qr{\A$base_tmp}, 'base tmpdir');
24ok(-d $upload_tmpdir, 'alive tmpdir');
25
26
27END {
28    # cleanup by File::Temp's END block
29    ok(!-d $upload_tmpdir, 'not alive tmpdir');
30    ok(!rmtree($upload_tmpdir, 0), 'rmtree');
31}
32