/t/010_core/request_upload-basename.t

http://github.com/http-engine/HTTP-Engine · Raku · 10 lines · 9 code · 1 blank · 0 comment · 0 complexity · 7618a24ebf7d7e788c3f7bf432cb30cf MD5 · raw file 

    

  1. use strict;
    2. 

  2. use warnings;
    3. 

  3. use Test::More tests => 1;
    4. 

  4. use HTTP::Engine;
    5. 

  5. use HTTP::Engine::Request::Upload;
    6. 

  6. 

  7. my $upload = HTTP::Engine::Request::Upload->new(
    8. 

  8.     filename => '/tmp/foo/bar/hoge.txt',
    9. 

  9. );
    10. 

  10. is $upload->basename, 'hoge.txt';
    11.