Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
cases	[ DIR ]	drwxr-xr-x	2015-02-14 16:55
000_load.t	217 B	-r--r--r--	2014-12-27 11:48
001_api.t	705 B	-r--r--r--	2014-12-27 11:48
002_croakage.t	925 B	-r--r--r--	2014-12-27 11:49
003_agent.t	1.24 KB	-r--r--r--	2014-12-27 11:48
010_url.t	1.66 KB	-r--r--r--	2014-12-27 11:48
020_headers.t	1.47 KB	-r--r--r--	2014-12-27 11:49
030_response.t	1021 B	-r--r--r--	2014-12-27 11:48
040_content.t	939 B	-r--r--r--	2014-12-27 11:48
050_chunked_body.t	1.4 KB	-r--r--r--	2014-12-27 11:48
060_http_date.t	759 B	-r--r--r--	2014-12-27 11:48
070_cookie_jar.t	1.06 KB	-r--r--r--	2014-12-27 11:48
100_get.t	3 KB	-r--r--r--	2014-12-27 11:49
101_head.t	1.9 KB	-r--r--r--	2014-12-27 11:49
102_put.t	1.9 KB	-r--r--r--	2014-12-27 11:49
103_delete.t	1.9 KB	-r--r--r--	2014-12-27 11:49
104_post.t	1.9 KB	-r--r--r--	2014-12-27 11:49
110_mirror.t	2.44 KB	-r--r--r--	2014-12-27 11:49
130_redirect.t	2.07 KB	-r--r--r--	2014-12-27 11:49
140_proxy.t	706 B	-r--r--r--	2014-12-27 11:49
141_no_proxy.t	1.71 KB	-r--r--r--	2014-12-27 11:48
150_post_form.t	2.1 KB	-r--r--r--	2014-12-27 11:49
160_cookies.t	2.44 KB	-r--r--r--	2014-12-27 11:49
161_basic_auth.t	2.06 KB	-r--r--r--	2014-12-27 11:49
162_proxy_auth.t	2.07 KB	-r--r--r--	2014-12-27 11:49
170_keepalive.t	2.15 KB	-r--r--r--	2014-12-27 11:49
BrokenCookieJar.pm	263 B	-r--r--r--	2014-12-27 11:48
SimpleCookieJar.pm	470 B	-r--r--r--	2014-12-27 11:48
Util.pm	3.96 KB	-r--r--r--	2014-12-27 11:49

Rename

#!perl

use strict;
use warnings;
use File::Basename;
use Test::More 0.88;
use t::Util qw[
    tmpfile monkey_patch dir_list clear_socket_source set_socket_source
    $CRLF
];
use HTTP::Tiny;
our $can_read;

BEGIN {
    no warnings qw/redefine once/;
    monkey_patch();
    *HTTP::Tiny::Handle::can_read = sub { $can_read++ };
}

my $response = <<'RESPONSE';
HTTP/1.1 200 OK
Date: Thu, 03 Feb 1994 00:00:00 GMT
Content-Type: text/html
Content-Length: 10

0123456789

RESPONSE

trim($response);

my $h;

new_ht();
test_ht( "Keep-alive", 1, 'http://foo.com' );

new_ht();
test_ht( "Different scheme", 0, 'https://foo.com' );

new_ht();
test_ht( "Different host", 0, 'http://bar.com' );

new_ht();
test_ht( "Different port", 0, 'http://foo.com:8000' );

new_ht();
$h->timeout(30);
test_ht( "Different timeout", 0, 'http://foo.com' );

new_ht();
$h->timeout(60);
test_ht( "Same timeout", 1, 'http://foo.com' );

new_ht();
$h->default_headers({ 'X-Foo' => 'Bar' });
test_ht( "Default headers change", 1, 'http://foo.com' );

new_ht();
$h->{handle}->close;
test_ht( "Socket closed", 0, 'http://foo.com' );

for my $file ( dir_list( "t/cases", qr/^keepalive/ ) ) {
    my $label = basename($file);
    my $data = do { local ( @ARGV, $/ ) = $file; <> };
    my ( $title, $ok, $response ) = map { trim($_) } split /--+/, $data;
    new_ht();
    clear_socket_source();
    set_socket_source( tmpfile(), tmpfile($response) );
    $h->request( 'POST', 'http://foo.com', { content => 'xx' } );
    is !!$h->{handle}, !!$ok, "$label - $title";
}

sub test_ht {
    my $title  = shift;
    my $result = !!shift();
    my $url    = shift;

clear_socket_source();
    set_socket_source( tmpfile(), tmpfile($response) );
    $can_read = 0 if $result;
    my $old = $h->{handle} || 'old';
    $h->request( 'POST', $url, { content => 'xx' } );
    my $new = $h->{handle} || 'new';
    is $old eq $new, $result, $title;
}

sub new_ht {
    $h = HTTP::Tiny->new( keep_alive => 1, @_ );
    $can_read = 1;
    clear_socket_source();
    set_socket_source( tmpfile(), tmpfile($response) );
    $h->request( 'POST', 'http://foo.com' );
}

sub trim { $_[0] =~ s/^\s+//; $_[0] =~ s/\s+$//; return $_ }

done_testing;