view release on metacpan or  search on metacpan

t/01-basic.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use FindBin '$Bin';
use lib "$Bin/lib";
use Catalyst::Test 'TestApp';
use HTTP::Request::Common;

use Test::More tests => 5;

action_ok('/', 'check if the thing runs at all');

my $resp = request('/conneg');
is($resp->code, 200, 'second response code is ok');
is($resp->content_type, 'application/json', 'should be json');
diag($resp->as_string);