[catagits/Catalyst-Runtime.git] / t / live / component / controller / action / path.t

#!perl

use strict;
use warnings;

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

use Test::More tests => 12;
use Catalyst::Test 'TestApp';


{
    ok( my $response = request('http://localhost/action/path/a path with spaces'), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    is( $response->header('X-Catalyst-Action'), 'action/path/a path with spaces', 'Test Action' );
    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Path', 'Test Class' );
    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
}

{
    ok( my $response = request('http://localhost/action/path/åäö'), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    is( $response->header('X-Catalyst-Action'), 'action/path/åäö', 'Test Action' );
    is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Path', 'Test Class' );
    like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
}
Commit	Line	Data
dd4e6fd2	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
9770ad56	7	use lib "$FindBin::Bin/../../../lib";
dd4e6fd2	8
c20bd9d9	9	use Test::More tests => 12;
dd4e6fd2	10	use Catalyst::Test 'TestApp';
	11
	12
	13	{
	14	ok( my $response = request('http://localhost/action/path/a path with spaces'), 'Request' );
	15	ok( $response->is_success, 'Response Successful 2xx' );
	16	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	17	is( $response->header('X-Catalyst-Action'), 'action/path/a path with spaces', 'Test Action' );
	18	is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Path', 'Test Class' );
	19	like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
	20	}
	21
	22	{
	23	ok( my $response = request('http://localhost/action/path/åäö'), 'Request' );
	24	ok( $response->is_success, 'Response Successful 2xx' );
	25	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	26	is( $response->header('X-Catalyst-Action'), 'action/path/åäö', 'Test Action' );
	27	is( $response->header('X-Test-Class'), 'TestApp::Controller::Action::Path', 'Test Class' );
	28	like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
	29	}