t/04regexaction.t

   1 package TestApp;
   2
   3 use Catalyst qw[-Engine=Test];
   4
   5 __PACKAGE__->action(
   6     '/foo/(.*)/' => sub {
   7         my ( $self, $c ) = @_;
   8         $c->res->output( $c->req->snippets->[0] );
   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/ );