package TestApp;
-use Catalyst;
+use Catalyst qw[-Engine=Test];
__PACKAGE__->action(
'!default' => sub {
package TestApp::C::Foo::Bar;
TestApp->action(
- '!?default' => sub {
+ '!default' => sub {
my ( $self, $c ) = @_;
$c->res->output('yada');
}
use Test::More tests => 2;
use Catalyst::Test 'TestApp';
-like( get('/foo') , qr/bar/ );
-like( get('/foo_bar/foo') , qr/yada/ );
+ok( get('/foo') =~ /bar/ );
+ok( get('/foo/bar/foo') =~ /yada/ );