Mojolicious submit_form_ok

#!/usr/bin/perl

use Test::More;
use Test::Mojo;
use Mojo::Util;

Mojo::Util::monkey_patch 'Test::Mojo', submit_form_ok => sub {
    my ($t, $form, $override_fields, $options) = @_;

    my %fields = ();

    $form->find('button, input, select')
         ->map(sub {
             my $e = shift;
             my $key = $e->attr('name') || $e->attr('id');
             $fields{$key} = $e->val->first;
         });

    %fields = (%fields, %{$override_fields});

    my $method = uc ($form->attr('method') || $options->{method} || 'GET');
    my $action = $form->attr('action') || $options->{action};
    $action = Mojo::URL->new($action)->to_abs(Mojo::URL->new($t->tx->req->url));

    my $headers = $options->{headers} || {};

    my $tx = $t->ua->build_tx($method => $action => $headers => form => \%fields);
    return $t->request_ok($tx);
};

my $t = Test::Mojo->new();
$t->get_ok('http://www.abcnyheter.no/user');

my $form = $t->tx->res->dom->find('form#user-login')->first;
$t->submit_form_ok($form, { name => 'fry', pass => 's3cr3t' });

done_testing;