[catagits/Catalyst-Runtime.git] / t / aggregate / live_component_controller_moose.t

use strict;
use warnings;

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

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

{
    my $response = request('http://localhost/moose/get_attribute');
    ok($response->is_success);
    is($response->content, '42', 'attribute default values get set correctly');
}

{
    my $response = request('http://localhost/moose/methodmodifiers/get_attribute');
    ok($response->is_success);
    is($response->header('X-Catalyst-Test-After'), 'after called', 'after works as expected');
}
Commit	Line	Data
2167982f	1	use strict;
	2	use warnings;
	3
	4	use FindBin;
	5	use lib "$FindBin::Bin/../lib";
	6
87e41a18	7	use Test::More tests => 4;
2167982f	8	use Catalyst::Test 'TestApp';
	9
	10	{
	11	my $response = request('http://localhost/moose/get_attribute');
	12	ok($response->is_success);
	13	is($response->content, '42', 'attribute default values get set correctly');
	14	}
87e41a18	15
	16	{
	17	my $response = request('http://localhost/moose/methodmodifiers/get_attribute');
	18	ok($response->is_success);
	19	is($response->header('X-Catalyst-Test-After'), 'after called', 'after works as expected');
	20	}