view release on metacpan or  search on metacpan

t/02certs.t  view on Meta::CPAN

	} @lines;
	shift @cert_lines;
	
	join '', @cert_lines;
}

if (my $child = fork)
{
	sleep 1;
	my $got_cert      = get('/test');
	my $expected_cert = do { local(@ARGV, $/) = $ENV{HTTPS_CERT_FILE}; <> };
	
	is(parsed($got_cert), parsed($expected_cert));
	kill 9, $child; # a bit harsh, I know
	exit(0);
}
else
{
	my $daemon;
	my $app  = sub
	{