view release on metacpan or  search on metacpan

t/10_psgi.t  view on Meta::CPAN

is(
    $r->psgi_status(),
    '200',
    'Received expected status.',
);

my $headers = +{ @{$r->psgi_headers()} };
is(
    $headers->{'Content-Type'},
    'text/html',
    'Received expected content type.',
);

is(
    $headers->{'X-Foo'},
    'Bar',
    'Received expected custom header.',
);

is(
	$r->no_cache(1),
	0,
	'No cache is set.',
);

$headers = +{ @{$r->psgi_headers()} };
is(
	$headers->{'Pragma'},
	'no-cache',
	'Received Pragma header for cache.',
);

is(
	$headers->{'Cache-control'},
	'no-cache',
	'Received Cache-control header for cache.',
);

is(
	$r->no_cache(0),
	1,
	'No cache is unset.',
);

$headers = +{ @{$r->psgi_headers()} };
is(
	exists($headers->{'Pragma'}),
	'',
	'Received no Pragma header.',
);

is(
	exists($headers->{'Cache-control'}),
	'',
	'Received no Cache-control header.',
);

my $body_fh = IO::File->new_tmpfile();
{
    local *STDOUT = $body_fh;
    #my $length = $r->print($response_body);
    is(
        #$length,
        $r->print($response_body),
        length($response_body),
        'Content is printed.',
    );

}

$body_fh->seek(0, 0);  # Reset filehandle back to the beginning.
is(
    $body_fh->getline(),
    $response_body,
    'Received expected content.',
);