3 use Catalyst qw[-Engine=Test];
7 $c->stash->{test} ||= 'foo';
11 my ( $self, $c ) = @_;
12 $c->stash->{test} ||= 'bar';
16 my ( $self, $c ) = @_;
17 $c->stash->{test} ||= 'yada';
18 $c->res->output( $c->stash->{test} );
25 use Test::More tests => 2;
26 use Catalyst::Test 'TestApp';
28 ok( get('/foo') =~ /foo/ );
29 ok( get('/bar') =~ /bar/ );