[catagits/Catalyst-Runtime.git] / t / 13default.t

package TestApp;

use Catalyst qw[-Engine=Test];

sub default : Private {
    my ( $self, $c ) = @_;
    $c->res->output('bar');
}

__PACKAGE__->setup;

package TestApp::C::Foo::Bar;

use base 'Catalyst::Base';

sub default : Private {
    my ( $self, $c ) = @_;
    $c->res->output('yada');
}

package main;

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

ok( get('/foo')         =~ /bar/ );
ok( get('/foo/bar/foo') =~ /yada/ );
Commit	Line	Data
fc7ec1d9	1	package TestApp;
fc7ec1d9	2
e05c5e3c	3	use Catalyst qw[-Engine=Test];
fc7ec1d9	4
a8ed7612	5	sub default : Private {
	6	my ( $self, $c ) = @_;
	7	$c->res->output('bar');
	8	}
	9
	10	__PACKAGE__->setup;
fc7ec1d9	11
	12	package TestApp::C::Foo::Bar;
	13
a8ed7612	14	use base 'Catalyst::Base';
	15
	16	sub default : Private {
	17	my ( $self, $c ) = @_;
	18	$c->res->output('yada');
	19	}
fc7ec1d9	20
	21	package main;
	22
	23	use Test::More tests => 2;
	24	use Catalyst::Test 'TestApp';
	25
1df125c9	26	ok( get('/foo') =~ /bar/ );
847c44c5	27	ok( get('/foo/bar/foo') =~ /yada/ );