3 use Catalyst qw[-Engine=Test];
9 $c->res->headers->content_type('text/plain');
13 package TestApp::C::Foo;
18 my ( $self, $c ) = @_;
19 $c->res->output('foo');
23 my ( $self, $c ) = @_;
24 $c->res->output( $c->res->output . 'foo' );
28 my ( $self, $c ) = @_;
29 $c->res->output( $c->res->output . 'foo' );
33 package TestApp::C::Foo::Bar;
38 my ( $self, $c ) = @_;
39 $c->res->output( $c->res->output . 'bar' );
43 my ( $self, $c ) = @_;
44 $c->res->output( $c->res->output . 'bar' );
48 my ( $self, $c ) = @_;
49 $c->res->output( $c->res->output . 'bar' );
55 use Test::More tests => 5;
56 use Catalyst::Test 'TestApp';
59 my $response = request('/foo');
60 is( $response->content, 'foofoofoo' );
64 my $response = request('/foo/rab');
65 is( $response->content, 'foofoofoo' );
69 my $response = request('/foo/bar');
70 is( $response->content, 'foobarfoobarfoobar' );
74 my $response = request('/foobar');
75 isnt( $response->content, 'foofoofoo' );
79 my $response = request('/foo_bar/yada');
80 isnt( $response->content, 'foobarfoobarfoobar' );