1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
use strict;
use warnings;
use utf8;
use Test::More;
use Test::Requires qw(Plack::Request HTTP::Body), qw(IO::Socket::SSL);
use Furl;
use IO::Socket::SSL;
use FindBin;
use lib "$FindBin::Bin/../..";
use t::Util;
# this test moved to xt/ since mixi's ssl sucks.
# ref. http://www.machu.jp/diary/20080918.html#p01
skip_if_offline();
my $furl = Furl->new();
$furl->env_proxy();
for my $url('https://mixi.jp/', 'https://mixi.jp') {
my $res = $furl->get($url);
ok $res->is_success, $url or diag $res->status_line;
}
done_testing;
|
