#!/usr/bin/perl
use HTTP::Client;
use strict;
$^W = 1; # -w
$| = 1; # autoflush
sub test;
sub client_test {
my $client = HTTP::Client->new("Bot/1.0");
my $site = $client->get("http://www.cpan.org");
return 1 if ($client->status_message =~ /200 OK/);
}
sub header_test {
my $client = HTTP::Client->new("NewBot/1.0");
my $site = $client->get("http://www.cpan.org");
my @headers = $client->response_headers;
return 1 if (@headers);
}
test (1, "loading", sub { use HTTP::Client; 1; });
test (2, "checking that get works", \&client_test);
test (3, "checking that headers work", \&header_test);
sub test {
my ($number, $purpose, $test) = (shift, shift, shift);
print "Test $number ($purpose)...";
print &$test () ? "ok\n" : "not ok\n";
}