[catagits/CatalystX-DynamicComponent.git] / t / 01app.t

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