view release on metacpan or  search on metacpan

t/form_cleanup.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use FindBin;
use lib "$FindBin::Bin/form/lib";


use Ark::Test 'T', 'reuse_connection' => 1;
use HTTP::Request::Common;

is(
    get('/login_form_input'),
    '<input name="username" type="text" />',
    'input method ok',
);

{
    my $res = request GET '/';
    like $res->content, qr/OK/, '$self->form is empty';
}
done_testing;