malts_test.pl

package t::Util;
use strict;
use warnings;
use Malts::Test ();
use Exporter 'import';

our @EXPORT = qw/apptest/;

my $builder = Test::More->builder;
binmode $builder->output,         ":utf8";
binmode $builder->failure_output, ":utf8";
binmode $builder->todo_output,    ":utf8";

sub apptest {
    my ($note, $client) = @_;
    subtest $note => sub {
        Malts::Test::apptest(
            impl   => 'MockHTTP',
            app    => Plack::Util::load_psgi('./apptest.psgi'),
            client => $client,
        );
    };
};

package main;
use strict;
use warnings;
use utf8;;
use t::Util;
use HTTP::Request::Common;

apptest '結婚が成立する' => sub {
    my ($app) = @_;
    my ($res, $c) = $app->(POST '/marry', [
        bride => 'yoshitaka-yuriko',
        groom => 'hisaichi5518'
    ]);

    like $c->flash('notice'), qr/結婚が成立しました/;
};