/t/010_core/request_upload-basename.t

 1use strict;
 2use warnings;
 3use Test::More tests => 1;
 4use HTTP::Engine;
 5use HTTP::Engine::Request::Upload;
 6
 7my $upload = HTTP::Engine::Request::Upload->new(
 8    filename => '/tmp/foo/bar/hoge.txt',
 9);
10is $upload->basename, 'hoge.txt';