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 )