t/upload-basename.t


1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;

use Web::Request::Upload;

my $upload = Web::Request::Upload->new(
    filename => '/tmp/foo/bar/hoge.txt',
);
is $upload->basename, 'hoge.txt';

done_testing;