[Catalyst-commits] r11303 - in Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t: . lib

[yousef at dev.catalyst.perl.org]

Author: yousef
Date: 2009-09-03 12:08:43 +0000 (Thu, 03 Sep 2009)
New Revision: 11303

Modified:
   Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t
   Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm
Log:
Test that warnings are generated if appclass actions are used


Modified: Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t
===================================================================
--- Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t	2009-09-02 22:59:08 UTC (rev 11302)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t	2009-09-03 12:08:43 UTC (rev 11303)
@@ -7,7 +7,12 @@
 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

Modified: Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm	2009-09-02 22:59:08 UTC (rev 11302)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm	2009-09-03 12:08:43 UTC (rev 11303)
@@ -4,6 +4,10 @@
 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 {
@@ -11,4 +15,14 @@
     $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;