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

#!perl

use strict;
use warnings;

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

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

my $expected = {
   one => "foo",
   two => "foobar",
   three => "foo,bar,baz",
};

for my $action ( keys %{$expected} ) {
    ok( my $response = request('http://localhost/engine/response/print/' . $action ),
        'Request' );
    ok( $response->is_success, "Response $action successful 2xx" );
    
    is( $response->content, $expected->{$action}, "Content $action OK" );
}
Commit	Line	Data
e4cc83b2	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
	7	use lib "$FindBin::Bin/lib";
	8
	9	use Test::More tests => 9;
	10	use Catalyst::Test 'TestApp';
	11
	12	my $expected = {
	13	one => "foo",
	14	two => "foobar",
	15	three => "foo,bar,baz",
	16	};
	17
	18	for my $action ( keys %{$expected} ) {
	19	ok( my $response = request('http://localhost/engine/response/print/' . $action ),
	20	'Request' );
	21	ok( $response->is_success, "Response $action successful 2xx" );
	22
	23	is( $response->content, $expected->{$action}, "Content $action OK" );
	24	}