whoami7 - Manager
:
/
root
/
.cpanm
/
latest-build
/
HTTP-Tiny-0.088
/
t
/
Upload File:
files >> //root/.cpanm/latest-build/HTTP-Tiny-0.088/t/002_croakage.t
#!perl use strict; use warnings; use Test::More; use lib 't'; use Util qw[tmpfile monkey_patch set_socket_source clear_socket_source]; use HTTP::Tiny; BEGIN { monkey_patch() } my %usage = ( 'get' => q/Usage: $http->get(URL, [HASHREF])/, 'mirror' => q/Usage: $http->mirror(URL, FILE, [HASHREF])/, 'request' => q/Usage: $http->request(METHOD, URL, [HASHREF])/, ); my @cases = ( ['get'], ['get','http://www.example.com/','extra'], ['get','http://www.example.com/','extra', 'extra'], ['mirror'], ['mirror','http://www.example.com/',], ['mirror','http://www.example.com/','extra', 'extra'], ['mirror','http://www.example.com/','extra', 'extra', 'extra'], ['request'], ['request','GET'], ['request','GET','http://www.example.com/','extra'], ['request','GET','http://www.example.com/','extra', 'extra'], ); my $res_fh = tmpfile(); my $req_fh = tmpfile(); my $http = HTTP::Tiny->new; clear_socket_source(); set_socket_source($req_fh, $res_fh); for my $c ( @cases ) { my ($method, @args) = @$c; eval {$http->$method(@args)}; my $err = $@; like ($err, qr/\Q$usage{$method}\E/, join("|",@$c) ); } my $res = eval{ $http->get("http://www.example.com/", { headers => { host => "www.example2.com" } } ) }; is( $res->{status}, 599, "Providing a Host header errors with 599" ); like( $res->{content}, qr/'Host' header/, "Providing a Host header gives right error message" ); $res = eval { $http->head("hxxp://www.example.com/") }; is( $res->{status}, 599, "Error on unsupported scheme" ); like( $res->{content}, qr/Unsupported URL scheme 'hxxp'/, "Error for unsupported scheme" ); $res = eval { $http->post_form("http://www.example.com/", [undef, "123"]) }; my $err = $@; like( $err, qr/form data keys must not be undef/, "Error for undef key in form" ); done_testing;
Copyright ©2021 || Defacer Indonesia