1#! /usr/bin/env perl 2# Copyright 2020-2021 The OpenSSL Project Authors. All Rights Reserved. 3# 4# Licensed under the Apache License 2.0 (the "License"). You may not use 5# this file except in compliance with the License. You can obtain a copy 6# in the file LICENSE in the source distribution or at 7# https://www.openssl.org/source/license.html 8 9 10use OpenSSL::Test qw/:DEFAULT srctop_file/; 11use OpenSSL::Test::Utils; 12 13setup("test_http"); 14 15plan tests => 2; 16 17SKIP: { 18 skip "sockets disabled", 1 if disabled("sock"); 19 skip "OCSP disabled", 1 if disabled("ocsp"); 20 my $cmd = [qw{openssl ocsp -index any -port 0}]; 21 my @output = run(app($cmd), capture => 1); 22 $output[0] =~ s/\r\n/\n/g; 23 ok($output[0] =~ /^ACCEPT (0.0.0.0|\[::\]):(\d+?) PID=(\d+)$/ 24 && $2 >= 1024 && $3 > 0, 25 "HTTP server auto-selects and reports local port >= 1024 and pid > 0"); 26} 27 28ok(run(test(["http_test", srctop_file("test", "certs", "ca-cert.pem")]))); 29