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