view release on metacpan or  search on metacpan

t/daemon.t  view on Meta::CPAN

# Test the response from the daemon.
my $testfile = 'dummysocket.txt';
open($fh, '>', $testfile);
$conn = Pod::Webserver::Connection->new(*$fh);
$ws->_serve_thing($conn, $req);
$conn->close;

my $captured_response;
{
    open(my $fh1, $testfile);
    local $/ = '';
    $captured_response = <$fh1>;
    close $fh1;
    unlink $testfile;
}
ok ($captured_response, qr/Pod::Simple/);

shutdown ($sock, 2);
exit;

t/pod_webserver.t  view on Meta::CPAN

my $testfile = 'dummysocket.txt';
open(my $fh, ">$testfile");
my $conn = Pod::Webserver::Connection->new(*$fh);
ok ($conn);
$conn->send_response($resp);
$conn->close;

my $captured_response;
{
    open(COMP, $testfile);
    local $/ = '';
    $captured_response = <COMP>;
    close COMP;
    unlink $testfile;
}
my $compare = "HTTP\/1.0 200 OK
Date: .* GMT
Content-Type: text\/html
Last-Modified: Thu, 09 Feb 2006 21:34:22 GMT
Expires: Thu, 09 Feb 2006 21:34:22 GMT

t/pod_webserver.t  view on Meta::CPAN

# Test mock connection object sending errors.
open($fh, ">$testfile");
$conn = Pod::Webserver::Connection->new(*$fh);
ok ($conn);
$conn->send_error('404');
$conn->close;

my $captured_error;
{
    open(COMP, $testfile);
    local $/ = '';
    $captured_error = <COMP>;
    close COMP;
    unlink $testfile;
}
$compare = "HTTP\/1.0 404 HTTP error code 404
Date: .* GMT
Content-Type: text\/plain

Something went wrong, generating code 404.";
$compare =~ s/\n/\15\12/gs;