Test::Mojoでアップロード処理をテストする

以下のような画像掲示板などをテストする場合です。
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;