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