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

[yousef at dev.catalyst.perl.org]

Author: yousef
Date: 2009-09-03 12:13:15 +0000 (Thu, 03 Sep 2009)
New Revision: 11304

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:
Made $warnings a global variable for the appclass actions test to work.


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-03 12:08:43 UTC (rev 11303)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t	2009-09-03 12:13:15 UTC (rev 11304)
@@ -15,4 +15,4 @@
 
 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
+is( $DeprecatedActionsInAppClassTestApp::Log::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-03 12:08:43 UTC (rev 11303)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm	2009-09-03 12:13:15 UTC (rev 11304)
@@ -20,6 +20,8 @@
 use warnings;
 use base qw/Catalyst::Log/;
 
+our $warnings;
+
 sub warn {
     my ($self, $warning) = @_;
     $warnings++ if $warning =~ /action methods .+ found defined/i;