[Catalyst-commits] r6804 - trunk/Catalyst-View-Mason/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 17:03:50 +0100 (Tue, 28 Aug 2007)
New Revision: 6804

Modified:
   trunk/Catalyst-View-Mason/t/deprecation.t
Log:
Test that the deprecation warning contain the name of the package that caused it.


Modified: trunk/Catalyst-View-Mason/t/deprecation.t
===================================================================
--- trunk/Catalyst-View-Mason/t/deprecation.t	2007-08-28 16:03:47 UTC (rev 6803)
+++ trunk/Catalyst-View-Mason/t/deprecation.t	2007-08-28 16:03:50 UTC (rev 6804)
@@ -7,7 +7,7 @@
 eval 'use Test::MockObject::Extends';
 plan skip_all => 'Test::MockModule::Extends required' if $@;
 
-plan tests => 3;
+plan tests => 4;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
@@ -29,3 +29,4 @@
 
 is(scalar @warnings, 1, 'loading component which sets use_match to something true causes a warning');
 like($warnings[0], qr/^DEPRECATION WARNING/, 'the warning is a deprecation warning');
+like($warnings[0], qr/TestApp::View::Mason::Pkgconfig/, 'the warning contains the name of the component causing it');