[Catalyst-commits] r14322 - Catalyst-Plugin-Unicode-Encoding/trunk/t

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2012-07-15 17:19:29 +0000 (Sun, 15 Jul 2012)
New Revision: 14322

Modified:
   Catalyst-Plugin-Unicode-Encoding/trunk/t/08charset_utf8.t
Log:
Better debugging of the error

Modified: Catalyst-Plugin-Unicode-Encoding/trunk/t/08charset_utf8.t
===================================================================
--- Catalyst-Plugin-Unicode-Encoding/trunk/t/08charset_utf8.t	2012-07-12 14:16:47 UTC (rev 14321)
+++ Catalyst-Plugin-Unicode-Encoding/trunk/t/08charset_utf8.t	2012-07-15 17:19:29 UTC (rev 14322)
@@ -4,6 +4,7 @@
 use FindBin qw/ $Bin /;
 use lib "$Bin/lib";
 use TestLogger;
+use Data::Dumper;
 
 BEGIN {
     $ENV{TESTAPP_ENCODING} = 'UTF-8';
@@ -18,12 +19,14 @@
 is scalar(@TestLogger::LOGS), 0;
 
 ok request('/capture_charset/latin1');
-is scalar(@TestLogger::LOGS), 1;
+is scalar(@TestLogger::LOGS), 1
+    or diag Dumper(\@TestLogger::LOGS);
 
 @TestLogger::LOGS = ();
 
 ok request('/capture_charset/iso-8859-1; header=present');
-is scalar(@TestLogger::LOGS), 1;
+is scalar(@TestLogger::LOGS), 1
+    or diag Dumper(\@TestLogger::LOGS);
 like $TestLogger::LOGS[0], qr/content type is 'iso-8859-1'/;
 
 done_testing;