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

package TestApp;

use Catalyst qw[-Engine=Test];

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

__PACKAGE__->setup;

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
dea8ff68	5	sub foo : Global {
	6	my ( $self, $c ) = @_;
	7	$c->forward('bar');
	8	}
	9	sub bar : Global {
	10	my ( $self, $c, $arg ) = @_;
	11	$c->res->output($arg);
	12	}
	13
	14	__PACKAGE__->setup;
fc7ec1d9	15
	16	package main;
	17
	18	use Test::More tests => 1;
	19	use Catalyst::Test 'TestApp';
	20
	21	ok( get('/foo/bar') =~ /bar/ );