use Test::More;
use Catalyst::Test 'DeprecatedActionsInAppClassTestApp';
-plan tests => 2;
+plan tests => 3;
+
+my $warnings;
+my $logger = DeprecatedActionsInAppClassTestApp::Log->new;
+Catalyst->log($logger);
ok( my $response = request('http://localhost/foo'), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
+is( $warnings, 1, 'Get the appclass action warning' );
\ No newline at end of file
use warnings;
use Catalyst;
+our $VERSION = '0.01';
+
+__PACKAGE__->config( name => 'DeprecatedActionsInAppClassTestApp', root => '/some/dir' );
+__PACKAGE__->log(DeprecatedActionsInAppClassTestApp::Log->new);
__PACKAGE__->setup;
sub foo : Local {
$c->res->body('OK');
}
+package DeprecatedActionsInAppClassTestApp::Log;
+use strict;
+use warnings;
+use base qw/Catalyst::Log/;
+
+sub warn {
+ my ($self, $warning) = @_;
+ $warnings++ if $warning =~ /action methods .+ found defined/i;
+}
+
1;