Catalyst-Plugin-FormValidator
view release on metacpan or search on metacpan
t/04basic.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use HTTP::Request::Common;
use FindBin;
use lib "$FindBin::Bin/TestPDV/lib";
use HTTP::Request::Common;
BEGIN { use_ok 'Catalyst::Test', 'TestPDV' }
my $response = request GET "/form_test";
ok( $response->is_success, "got initial url" );
my $response2 = request POST '/form_test',
Content_Type => 'form-data',
Content => [
testinput => "test",
press => ""
( run in 0.330 second using v1.01-cache-2.11-cpan-de7293f3b23 )