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