[catagits/Catalyst-Runtime.git] / t / 09forward.t

package TestApp;

use Catalyst;

__PACKAGE__->action(
    foo => sub {
        my ( $self, $c ) = @_;
        $c->forward('bar');
    },
    bar => sub {
        my ( $self, $c, $arg ) = @_;
        $c->res->output($arg);
    }
);

package main;

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

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