[catagits/CatalystX-Declare.git] / t / 051_modifier_signatures.t

#!/usr/bin/env perl
use strict;
use warnings;

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

use Test::More; 
use Catalyst::Test 'TestApp';

is get('/modsig/foo/2/3'),      'modifiersignatures/foo modified', 'intended arguments work';
is get('/modsig/foo/2'),        'Page Not Found', 'missing argument leads to 404';
is get('/modsig/foo/2/3/4'),    'Page Not Found', 'one argument too many leads to 404';
is get('/modsig/foo/a/b'),      'Not found', 'invalid arguments lead to bad request';


done_testing;
Commit	Line	Data
f0671dfc	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4
	5	use FindBin;
	6	use lib "$FindBin::Bin/lib";
	7
	8	use Test::More;
	9	use Catalyst::Test 'TestApp';
	10
	11	is get('/modsig/foo/2/3'), 'modifiersignatures/foo modified', 'intended arguments work';
	12	is get('/modsig/foo/2'), 'Page Not Found', 'missing argument leads to 404';
	13	is get('/modsig/foo/2/3/4'), 'Page Not Found', 'one argument too many leads to 404';
67f39940	14	is get('/modsig/foo/a/b'), 'Not found', 'invalid arguments lead to bad request';
f0671dfc	15
	16
	17	done_testing;