以下のような画像掲示板などをテストする場合です。
http://d.hatena.ne.jp/perlcodesample/20100113/1264941583
<input type="file" name="image">に当たる部分は、ハッシュで指定しています。
t/base.t
use strict;
use warnings;
use utf8;
use Encode;
use Test::Mojo;
use Test::More;
use File::Basename;
use Mojo::Asset::File;
$ENV{MOJO_HOME} = dirname(__FILE__) . '/../';
require "$ENV{MOJO_HOME}/myapp.pl";
my $t = Test::Mojo->new;
# アップロードする画像ファイル読み込み
my $asset = Mojo::Asset::File->new(path => dirname(__FILE__) . '/31683776.gif');
$t->post_ok('/upload' => form => {
# ハッシュでアップロードするファイルの情報を指定する
image => {
filename => '31683776.gif',
'Content-Type' => 'image/gif',
content => $asset->slurp,
},
})
->status_is(302);
done_testing;