why not just add to the maddness if its already there?

[catagits/Catalyst-Runtime.git] / t / unicode_plugin_charset_utf8.t

use strict;
use warnings;
use Test::More;
use FindBin qw/ $Bin /;
use lib "$Bin/lib";
use Data::Dumper;

BEGIN {
    $ENV{TESTAPP_ENCODING} = 'UTF-8';
    $ENV{TESTAPP_DEBUG} = 0;
    $ENV{CATALYST_DEBUG} = 0;
}

use Catalyst::Test 'TestAppUnicode';

ok request('/capture_charset/utf-8');
is scalar(@TestLogger::LOGS), 0;

ok request('/capture_charset/latin1');
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
    or diag Dumper(\@TestLogger::LOGS);
like $TestLogger::LOGS[0], qr/content type is 'iso-8859-1'/;

like $TestLogger::ELOGS[0], qr/Unicode::Encoding plugin/;

done_testing;