[Catalyst-commits] r11232 - Catalyst-Runtime/5.80/trunk/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-08-24 12:51:03 +0000 (Mon, 24 Aug 2009)
New Revision: 11232

Modified:
   Catalyst-Runtime/5.80/trunk/t/deprecated.t
   Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t
Log:
Test fixes for if CATALYST_DEBUG is set to 1.

Modified: Catalyst-Runtime/5.80/trunk/t/deprecated.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/deprecated.t	2009-08-24 10:24:03 UTC (rev 11231)
+++ Catalyst-Runtime/5.80/trunk/t/deprecated.t	2009-08-24 12:51:03 UTC (rev 11232)
@@ -16,6 +16,8 @@
 BEGIN {
     my $logger = Class::MOP::Class->create_anon_class(
     methods => {
+        debug => sub {0},
+        info  => sub {0},
         warn => sub {
             if ($_[1] =~ /switch your class names/) {
                $mvc_warnings++;

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t	2009-08-24 10:24:03 UTC (rev 11231)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_plugin.t	2009-08-24 12:51:03 UTC (rev 11232)
@@ -21,6 +21,9 @@
 use PluginTestApp;
 my $logger = Class::MOP::Class->create_anon_class(
     methods => {
+        error => sub {0},
+        debug => sub {0},
+        info => sub {0},
         warn => sub {
             if ($_[1] =~ /plugin method is deprecated/) {
                $warnings++;
@@ -40,6 +43,8 @@
 #         for Catalyst 5.9
 ok( get("/run_time_plugins"),     "get ok" );
 
+local $ENV{CATALYST_DEBUG} = 0;
+
 is( $warnings, 1, '1 warning' );
 
 use_ok 'TestApp';
@@ -56,3 +61,4 @@
 # Faux::Plugin is no longer reported
 is_deeply [ TestApp->registered_plugins ], \@expected,
   'registered_plugins() should only report the plugins for the current class';
+