t/unicode_plugin_charset_utf8.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use FindBin qw/ $Bin /;
   5 use lib "$Bin/lib";
   6 use Data::Dumper;
   7
   8 BEGIN {
   9   # $ENV{TESTAPP_ENCODING} = 'UTF-8'; # This is now default
  10     $ENV{TESTAPP_DEBUG} = 0;
  11     $ENV{CATALYST_DEBUG} = 0;
  12 }
  13
  14 use Catalyst::Test 'TestAppUnicode';
  15
  16 ok request('/capture_charset/utf-8');
  17 is scalar(@TestLogger::LOGS), 0;
  18
  19 ok request('/capture_charset/latin1');
  20 is scalar(@TestLogger::LOGS), 1
  21     or diag Dumper(\@TestLogger::LOGS);
  22
  23 @TestLogger::LOGS = ();
  24
  25 ok request('/capture_charset/iso-8859-1; header=present');
  26 is scalar(@TestLogger::LOGS), 1
  27     or diag Dumper(\@TestLogger::LOGS);
  28 like $TestLogger::LOGS[0], qr/content type is 'iso-8859-1'/;
  29
  30 #like $TestLogger::ELOGS[0], qr/Unicode::Encoding plugin/; #no longer a plugin
  31
  32 done_testing;