[catagits/Catalyst-Runtime.git] / t / 05regexaction.t

package TestApp;

use Catalyst qw[-Engine=Test];

__PACKAGE__->action(
    '/foo/(.*)/' => sub {
        my ( $self, $c ) = @_;
        $c->res->output( $c->req->snippets->[0] );
    }
);

package main;

use Test::More tests => 1;
use Catalyst::Test 'TestApp';

ok( get('/foo/bar') =~ /bar/ );
Commit	Line	Data
fc7ec1d9	1	package TestApp;
fc7ec1d9	2
e05c5e3c	3	use Catalyst qw[-Engine=Test];
fc7ec1d9	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/ );