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     => ""
  ];

like( $response2->content, qr/test/, "successful post is proper" );

my $response3 = request POST '/form_test',
  Content_Type => 'form-data',
  Content      => [
    testinput => "",
    press     => ""
  ];

like( $response3->content, qr//, "unsuccessful post is proper" );

done_testing;