[catagits/Catalyst-Runtime.git] / t / arg_constraints.t

use warnings;
use strict;
use Test::More;
use HTTP::Request::Common;

{
  package MyApp::Controller::Root;
  $INC{'MyApp/Controller/Root.pm'} = __FILE__;

  use Moose;
  use MooseX::MethodAttributes;

  extends 'Catalyst::Controller';

  sub check :Local {
    pop->res->from_psgi_response([200, ['Content-Type'=>'text/plain'],['check']]);
  }

  MyApp::Controller::Root->config(namespace=>'');

  package MyApp;
  use Catalyst;

  MyApp->setup;
}

use Catalyst::Test 'MyApp';

{
  my $res = request '/check';
  is $res->code, 200, 'OK';
  is $res->content, 'check', 'correct body';
  is $res->content_length, 5, 'correct length';
}

done_testing;
Commit	Line	Data
d91504e3	1	use warnings;
	2	use strict;
	3	use Test::More;
	4	use HTTP::Request::Common;
	5
	6	{
	7	package MyApp::Controller::Root;
	8	$INC{'MyApp/Controller/Root.pm'} = __FILE__;
	9
	10	use Moose;
	11	use MooseX::MethodAttributes;
	12
	13	extends 'Catalyst::Controller';
	14
	15	sub check :Local {
	16	pop->res->from_psgi_response([200, ['Content-Type'=>'text/plain'],['check']]);
	17	}
	18
	19	MyApp::Controller::Root->config(namespace=>'');
	20
	21	package MyApp;
	22	use Catalyst;
	23
	24	MyApp->setup;
	25	}
	26
	27	use Catalyst::Test 'MyApp';
	28
	29	{
	30	my $res = request '/check';
	31	is $res->code, 200, 'OK';
	32	is $res->content, 'check', 'correct body';
	33	is $res->content_length, 5, 'correct length';
	34	}
	35
	36	done_testing;