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

use strict;
use warnings;
use Test::More tests => 3;

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' );
}
Commit	Line	Data
8798165a	1	use strict;
8798165a	2	use warnings;
b14364e6	3	use Test::More tests => 3;
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