view release on metacpan or  search on metacpan

t/100_get.t  view on Meta::CPAN

use TestUtils qw[tmpfile rewind slurp monkey_patch dir_list parse_case
  hashify connect_args set_socket_source sort_headers $CRLF $LF];

use HTTP::Tiny::UA;
BEGIN { monkey_patch() }

my $UA_CLASS = "HTTP::Tiny::UA";

for my $file ( dir_list( "corpus", qr/^get/ ) ) {
    my $label = basename($file);
    my $data = do { local ( @ARGV, $/ ) = $file; <> };
    my ( $params, $expect_req, $give_res ) = split /--+\n/, $data;
    my $case = parse_case($params);

    my $url      = $case->{url}[0];
    my %headers  = hashify( $case->{headers} );
    my %new_args = hashify( $case->{new_args} );

    my %options;
    $options{headers} = \%headers if %headers;
    if ( $case->{data_cb} ) {