t/10forward.t

   1 package TestApp;
   2
   3 use Catalyst qw[-Engine=Test];
   4
   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;
  15
  16 package main;
  17
  18 use Test::More tests => 1;
  19 use Catalyst::Test 'TestApp';
  20
  21 ok( get('/foo/bar') =~ /bar/ );