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