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

#!perl

use strict;
use warnings;

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

our $iters;

use Test::More tests => 2;
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');
}
Commit	Line	Data
b68b4c7c	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
	7	use lib "$FindBin::Bin/lib";
	8
	9	our $iters;
	10
	11	use Test::More tests => 2;
	12	use Catalyst::Test 'TestApp';
	13
	14	{
	15	my $response = request('http://localhost/moose/get_attribute');
	16	ok($response->is_success);
	17	is($response->content, '42', 'attribute default values get set correctly');
	18	}