|
@@ -143,7 +143,7 @@ print "Waited $elapsed seconds for timeout to drop\n";
|
|
|
|
|
|
# Try out the "experimental" API testing extensions (FetchRequests)
|
|
# Try out the "experimental" API testing extensions (FetchRequests)
|
|
print "HEAD http://google.com : \n";
|
|
print "HEAD http://google.com : \n";
|
|
-my $fr = $page->_request();
|
|
|
|
|
|
+my $fr = $page->request();
|
|
my $resp = $fr->fetch("http://google.com", { method => "HEAD" });
|
|
my $resp = $fr->fetch("http://google.com", { method => "HEAD" });
|
|
print Dumper($resp->headers());
|
|
print Dumper($resp->headers());
|
|
print "200 OK\n" if $resp->status() == 200;
|
|
print "200 OK\n" if $resp->status() == 200;
|