upload bug?

gistfile1.pl

#!/usr/bin/env perl

use Mojolicious::Lite;

# create file for testing
my $file = "yet_another_file";
qx(touch $file; echo "hello" > $file);

any '/' => sub {
    my $self = shift;

    my $file = $self->param("doc");
 
    return $file
        ? $self->render(text => "ok")
        : $self->render(text => $self->dumper($self->req->params->to_hash) ) # show params
    ;
};

use Test::Mojo;
use Test::More tests => 6;

my $t = Test::Mojo->new;

ok((-f $file), "file exists");

$t->get_ok('/');

$t->post_form_ok('/', 
    { doc => {file => $file} }
)
    ->status_is(200)
    ->content_is("ok") # 'ok' when upload is successful
;

# remove testing file
qx(rm -f $file);
ok(!(-f $file), "file not exists");