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

use strict;
use warnings;

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

use Test::More tests => 6;

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

{
    my $res = request('/fakeexample/register_me');
    ok( $res->is_success, 'should succeed' );
    is( $res->header('X-Foo'), 'bar', 'is calling correct code' );
}

{
    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
cbc455a6	7	use Test::More tests => 6;
8798165a	8
	9	BEGIN { use_ok 'Catalyst::Test', 'DynamicAppDemo' }
	10
b14364e6	11	{
	12	my $res = request('/fakeexample/register_me');
	13	ok( $res->is_success, 'should succeed' );
	14	is( $res->header('X-Foo'), 'bar', 'is calling correct code' );
	15	}
	16
cbc455a6	17	{
	18	my $res = request('/one/say_hello/world');
	19	ok( $res->is_success, 'should succeed' );
	20	is( $res->header('X-From-Model'), 'One' );
	21	is( $res->header('X-From-Model-Data'), 'Hello world' );
	22	}
	23