[catagits/CatalystX-DynamicComponent.git] / t / 10_app.t

use strict;
use warnings;

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

use Test::More tests => 4;

BEGIN { use_ok 'Catalyst::Test', 'DynamicAppDemo' }

{
    my $res = request('/one/say_hello/world');
    ok( $res->is_success, 'should succeed' );
    is( $res->header('X-From-Model'), 'One' );
    is( $res->header('X-From-Model-Data'), 'Hello world' ); 
}
Commit	Line	Data
8798165a	1	use strict;
8798165a	2	use warnings;
104abdae	3
	4	use FindBin qw/$Bin/;
	5	use lib "$Bin/lib";
	6
83c57636	7	use Test::More tests => 4;
8798165a	8
	9	BEGIN { use_ok 'Catalyst::Test', 'DynamicAppDemo' }
	10
b14364e6	11	{
cbc455a6	12	my $res = request('/one/say_hello/world');
	13	ok( $res->is_success, 'should succeed' );
	14	is( $res->header('X-From-Model'), 'One' );
	15	is( $res->header('X-From-Model-Data'), 'Hello world' );
	16	}
	17