3 use Catalyst qw[-Engine=Test];
8 $c->res->output('bar');
12 package TestApp::C::Foo::Bar;
16 my ( $self, $c ) = @_;
17 $c->res->output('yada');
23 use Test::More tests => 2;
24 use Catalyst::Test 'TestApp';
26 ok( get('/foo') =~ /bar/ );
27 ok( get('/foo/bar/foo') =~ /yada/ );