[catagits/Catalyst-Runtime.git] / t / data_handler.t

#!/usr/bin/env perl

use warnings;
use strict;

use FindBin;
use Test::More;
use HTTP::Request::Common;
use JSON::MaybeXS;

use lib "$FindBin::Bin/lib";
use Catalyst::Test 'TestDataHandlers';

ok my($res, $c) = ctx_request('/');
ok my $message = 'helloworld';
ok my $post = encode_json +{message=>$message};
ok my $req = POST $c->uri_for_action('/test_json'),
   Content_Type => 'application/json',
   Content => $post;

ok my $response = request $req, 'got a response from a catalyst controller';
is $response->content, $message, 'expected content body';

done_testing;
Commit	Line	Data
e2aa4a21	1	#!/usr/bin/env perl
	2
	3	use warnings;
	4	use strict;
	5
	6	use FindBin;
	7	use Test::More;
	8	use HTTP::Request::Common;
	9	use JSON::MaybeXS;
	10
	11	use lib "$FindBin::Bin/lib";
	12	use Catalyst::Test 'TestDataHandlers';
	13
	14	ok my($res, $c) = ctx_request('/');
	15	ok my $message = 'helloworld';
	16	ok my $post = encode_json +{message=>$message};
	17	ok my $req = POST $c->uri_for_action('/test_json'),
	18	Content_Type => 'application/json',
	19	Content => $post;
	20
	21	ok my $response = request $req, 'got a response from a catalyst controller';
	22	is $response->content, $message, 'expected content body';
	23
	24	done_testing;