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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2007-08-28 16:59:47 +0100 (Tue, 28 Aug 2007)
New Revision: 6770

Added:
   trunk/Catalyst-View-Mason/t/debug.t
Log:
Test debugging output.


Added: trunk/Catalyst-View-Mason/t/debug.t
===================================================================
--- trunk/Catalyst-View-Mason/t/debug.t	                        (rev 0)
+++ trunk/Catalyst-View-Mason/t/debug.t	2007-08-28 15:59:47 UTC (rev 6770)
@@ -0,0 +1,28 @@
+#!perl
+
+use strict;
+use warnings;
+use Test::More;
+
+eval "use IO::Capture::Stderr";
+plan skip_all => "IO::Capture::Stderr required for debug testing" if $@;
+
+plan tests => 3;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+$ENV{CATALYST_DEBUG} = 1;
+
+my $capture = IO::Capture::Stderr->new;
+$capture->start;
+
+use_ok('Catalyst::Test', 'TestApp');
+
+my $response = request('/test');
+
+$capture->stop;
+
+ok($response->is_success, 'request ok');
+
+like(join('', $capture->read), qr{\[debug\] Rendering component "/test"}, 'debug message ok');