view release on metacpan or  search on metacpan

t/01-file.t  view on Meta::CPAN

#!perl -T

use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Response::Encoding;
use File::Spec;
use Encode;
use Cwd;
use URI;
use Test::More tests => 13;

my $ua = LWP::UserAgent->new;
my $cwd = getcwd;

#BEGIN{
#    package LWP::Protocol;
#    $^W = 0;
#}

for my $meth (qw/charset encoder encoding decoded_content/){
    can_ok('HTTP::Response', $meth);
}

my %charset = qw(
		 UTF-8        utf-8-strict;
		 EUC-JP       EUC-JP
		 Shift_JIS    SHIFT_JIS
		 ISO-2022-JP  ISO-2022-JP
	       );

my %filename = qw(
	      UTF-8        t-utf-8.html
	      EUC-JP       t-euc-jp.html
	      Shift_JIS    t-shiftjis.html
	      ISO-2022-JP  t-iso-2022-jp.html
	     );

for my $charset (sort keys %charset){
    my $uri = URI->new('file://');
    $uri->path(File::Spec->catfile($cwd, "t", $filename{$charset}));
    my $res;
    {
	local $^W = 0; # to quiet LWP::Protocol
	$res = $ua->get($uri);
    }
    die unless $res->is_success;
    is $res->charset, $charset, "\$res->charset eq '$charset'";
    my $canon = find_encoding($charset)->name;
    is $res->encoding, $canon, "\$res->encoding eq '$canon'"; 
}

my $uri = URI->new('file://');
$uri->path(File::Spec->catfile($cwd, "t", "t-null.html"));
my $res = $ua->get($uri);
die unless $res->is_success;
if (defined $res->encoding){
    is $res->encoding, "ascii", "res->encoding is ascii";
}else{
    ok !$res->encoding, "res->encoding is undef";
}