view release on metacpan or  search on metacpan

t/061_signature_matching.t  view on Meta::CPAN

use strict;
use warnings;

no warnings 'redefine';

use FindBin;
use lib "$FindBin::Bin/lib";

use Test::More; 
use Catalyst::Test 'TestApp';
use HTTP::Request::Common;


is get('/sigmatch/test/23'), 'signaturematching/int', 'integer argument dispatched correctly';
is get('/sigmatch/test/foo'), 'signaturematching/str', 'string argument dispatched correctly';
is get('/sigmatch/test/f00'), 'signaturematching/rest', 'no match leads to other dispatched action';

is get('/sigmatch/opt_param?page=3'), 'page 3', 'query parameter';
is get('/sigmatch/opt_param?page=9&other=foo'), 'page 9', 'additional query parameter';

is get('/sigmatch/req_param?page=7'), 'page 7', 'required query parameter';