Commit | Line | Data |
fc7ec1d9 |
1 | package TestApp; |
2 | |
3 | use Catalyst; |
4 | |
5 | __PACKAGE__->action( |
6 | foo => sub { |
7 | my ( $self, $c ) = @_; |
8 | $c->res->output('bar'); |
9 | } |
10 | ); |
11 | |
12 | package main; |
13 | |
14 | use Test::More tests => 1; |
15 | use Catalyst::Test 'TestApp'; |
16 | |
17 | ok( get('/foo') =~ /bar/ ); |