4 use FindBin qw/ $Bin /;
9 $ENV{TESTAPP_ENCODING} = 'UTF-8';
10 $ENV{TESTAPP_DEBUG} = 0;
11 $ENV{CATALYST_DEBUG} = 0;
14 use Catalyst::Test 'TestAppUnicode';
16 ok request('/capture_charset/utf-8');
17 is scalar(@TestLogger::LOGS), 0;
19 ok request('/capture_charset/latin1');
20 is scalar(@TestLogger::LOGS), 1
21 or diag Dumper(\@TestLogger::LOGS);
23 @TestLogger::LOGS = ();
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'/;
30 like $TestLogger::ELOGS[0], qr/Unicode::Encoding plugin/;