view release on metacpan or  search on metacpan

t/certs.t  view on Meta::CPAN

    join '', @cert_lines;
}

if (my $child = fork) {
    sleep 1;

    # test that ssl_verify_mode 0x02 is indeed enforced. disabled for now.
    # my $res = get('/test', 0);

    my $got_cert      = get('/test', 1);
    my $expected_cert = do { local(@ARGV, $/) = $cert_file; <> };

    is(parsed($got_cert), parsed($expected_cert));
} else {
    my $daemon;
    my $app  = sub {
        my $env = shift;

        return [
            200,
            [ 'Content-Type' => 'text/plain' ],