use Test::More tests => 43;
use IO::File;
use File::Spec qw();
use HTTP::Response;

BEGIN {
  use_ok('HTML::Encoding');
};

while (<DATA>) {
  my ($name, $expect) = split ' ', $_, 2;
  $expect =~ s/[\r\n]+$//g;
  my $path = File::Spec->catfile('tinput', 'http', $name);
  my $data = do { local $/; IO::File->new('<' . $path)->getline };
  my $message = HTTP::Response->parse($data);
  my $charset = HTML::Encoding::encoding_from_http_message($message);
  $charset = '' unless defined $charset;
  is($charset, $expect);
}

__DATA__
01 utf-8
02 utf-8
03 utf-8
04 utf-8
05 utf-8
06 utf-8
07 utf-8
08 utf-8
09 utf-8
10 utf-8
11 utf-8
12 utf-8
13 iso-8859-1
14 iso-8859-1
15 iso-8859-1
16 ISO-8859-1
17 iso-8859-1
18 utf-8
19 utf-8
20 utf-8
21 utf-8
22 iso-8859-1
23 iso-8859-1
24 utf-8
25 utf-8
26 utf-8
27 utf-8
28 utf-8
29 utf-8
30 utf-8
31 utf-8
32 utf-8
33 CESU-8
34 CESU-8
35 {CE}SU-8
36 xCESU-8
37 PC-Multilingual-850+euro
38 ISO_8859-16:2001
39 utf-8
40 ISO-8859-1
41 
42 utf-8