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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-01-07 23:25:37 +0000 (Wed, 07 Jan 2009)
New Revision: 9037

Modified:
   Catalyst-Runtime/5.80/trunk/t/unit_core_component_mro.t
Log:
Fix test, we're now outputting multiple lines, and I shot the re-dispatch, as the only real thing it broke was Reaction

Modified: Catalyst-Runtime/5.80/trunk/t/unit_core_component_mro.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/unit_core_component_mro.t	2009-01-07 23:25:17 UTC (rev 9036)
+++ Catalyst-Runtime/5.80/trunk/t/unit_core_component_mro.t	2009-01-07 23:25:37 UTC (rev 9037)
@@ -1,4 +1,4 @@
-use Test::More tests => 2;
+use Test::More tests => 1;
 use strict;
 use warnings;
 
@@ -7,8 +7,7 @@
   use Test::More;
 
   sub COMPONENT {
-    my $caller = caller;
-    is($caller, 'Catalyst::Component', 'Correct method resolution');
+    fail 'This no longer gets dispatched to';
   }
 
   package MyApp::MyComponent;
@@ -17,10 +16,14 @@
 
 }
 
-{
-  my $expects = qr/after Catalyst::Component in MyApp::Component/;
+my $warn = '';
+{  
   local $SIG{__WARN__} = sub {
-    like($_[0], $expects, 'correct warning thrown');
+    $warn .= $_[0];  
   };
   MyApp::MyComponent->COMPONENT('MyApp');
 }
+
+like($warn, qr/after Catalyst::Component in MyApp::Component/, 
+    'correct warning thrown');
+