Commit | Line | Data |
fc7ec1d9 |
1 | package TestApp; |
2 | |
e05c5e3c |
3 | use Catalyst qw[-Engine=Test]; |
fc7ec1d9 |
4 | |
5 | __PACKAGE__->action( |
6 | '!default' => sub { |
7 | my ( $self, $c ) = @_; |
8 | $c->res->output('bar'); |
9 | } |
10 | ); |
11 | |
12 | package TestApp::C::Foo::Bar; |
13 | |
14 | TestApp->action( |
847c44c5 |
15 | '!default' => sub { |
fc7ec1d9 |
16 | my ( $self, $c ) = @_; |
17 | $c->res->output('yada'); |
18 | } |
19 | ); |
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/ ); |