3 use Catalyst qw[-Engine=Test];
8 $c->res->output('foo');
11 sub default : Private { }
14 my ( $self, $c ) = @_;
15 $c->res->output( $c->res->output . 'bar' );
21 package TestApp::C::Foo::Bar;
23 use base 'Catalyst::Base';
26 my ( $self, $c ) = @_;
27 $c->res->output('yada');
30 sub default : Private { }
33 my ( $self, $c ) = @_;
34 $c->res->output( $c->res->output . 'yada' );
39 use Test::More tests => 2;
40 use Catalyst::Test 'TestApp';
42 ok( get('/foo') =~ /foobar/ );
43 ok( get('/foo/bar/foo') =~ /yadayada/ );