Commit | Line | Data |
55046410 |
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'; |
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 | |
1bef5f59 |
30 | like $TestLogger::ELOGS[0], qr/Unicode::Encoding plugin/; |
55046410 |
31 | |
32 | done_testing; |