view release on metacpan or  search on metacpan

t/json.t  view on Meta::CPAN

use Test::More;

use strict;
use warnings;

use HTTP::Request::Common;
use JSON::XS;

use lib qw(t/lib);

use Test::WWW::Mechanize::Catalyst 'MyApp';

my $mech = Test::WWW::Mechanize::Catalyst->new( agent => 'Safari');
my $tid  = 1;

ok(
    my $api = MyApp->controller('API')->api,
    'get api directly from controller'
);

ok(
		$mech->request(
			POST $api->{url},
			Content_Type => 'application/json',
			Content      => encode_json(
				{
					action => 'JSON',
					method => 'index',
					tid    => $tid,
					data   => [],
					type   => 'rpc',
				}
			)
		),
		'get json response'
	);
    
like( $mech->content, qr/{"foo":"bar"}/, 'json works' );



done_testing;