t/13default.t

   1 package TestApp;
   2
   3 use Catalyst qw[-Engine=Test];
   4
   5 sub default : Private {
   6     my ( $self, $c ) = @_;
   7     $c->res->output('bar');
   8 }
   9
  10 __PACKAGE__->setup;
  11
  12 package TestApp::C::Foo::Bar;
  13
  14 use base 'Catalyst::Base';
  15
  16 sub default : Private {
  17     my ( $self, $c ) = @_;
  18     $c->res->output('yada');
  19 }
  20
  21 package main;
  22
  23 use Test::More tests => 2;
  24 use Catalyst::Test 'TestApp';
  25
  26 ok( get('/foo')         =~ /bar/ );
  27 ok( get('/foo/bar/foo') =~ /yada/ );