#!/usr/bin/perl
use strict;
use warnings;
use lib "t/lib";
use Test::More;
BEGIN {
eval {
require Catalyst::Plugin::Session::State::Cookie;
Catalyst::Plugin::Session::State::Cookie->VERSION(0.03);
} or plan skip_all => "Catalyst::Plugin::Session::State::Cookie 0.03 or higher is required for this test";
eval { require Test::WWW::Mechanize::Catalyst }
or plan skip_all => "Test::WWW::Mechanize::Catalyst is required for this test";
plan tests => 2;
}
use Test::WWW::Mechanize::Catalyst "TestApp";
{
my $m = Test::WWW::Mechanize::Catalyst->new( cookie_jar => undef );
$m->post_ok("http://localhost/uri/body_param", { body_param=>'value' }, "post request");
$m->content_contains( "http://localhost/foo/bar?param=value", "param in body" );
}