[catagits/Catalyst-Component-ACCEPT_CONTEXT.git] / t / 01-live.t

#!perl
# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>

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

use FindBin qw($Bin);
use lib "$Bin/lib";
use Catalyst::Test qw(TestApp);

is( get('/controller'), 'controller', 'got controller ok' );
is( get('/model'), 'model', 'model ok' );
is( get('/view'), 'view', 'view ok' );
is( get('/foo'), 'baz', 'got app at new() time' );
Commit	Line	Data
75f37967	1	#!perl
	2	# Copyright (c) 2007 Jonathan Rockway <jrockway@cpan.org>
	3
	4	use strict;
	5	use warnings;
	6	use Test::More tests => 4;
	7
	8	use FindBin qw($Bin);
	9	use lib "$Bin/lib";
	10	use Catalyst::Test qw(TestApp);
	11
	12	is( get('/controller'), 'controller', 'got controller ok' );
	13	is( get('/model'), 'model', 'model ok' );
	14	is( get('/view'), 'view', 'view ok' );
	15	is( get('/foo'), 'baz', 'got app at new() time' );