view release on metacpan or  search on metacpan

t/routes.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More 0.88;

use lib 't/lib';
use Catalyst::Test 'MyApp1';
use HTTP::Request::Common qw( GET PUT POST DELETE );

{
    request( GET '/foo', ( Accept => 'application/json' ) );

    is(
        $MyApp1::Controller::C1::REQ{get}, 1,
        'GET request for /foo went to the right sub'
    );

    request( GET '/foo', ( Accept => '*/*' ) );