HEX
Server: Apache
System: Windows NT MAGNETO-ARM 10.0 build 22000 (Windows 10) AMD64
User: Michel (0)
PHP: 7.4.7
Disabled: NONE
Upload Files
File: C:/mod_perl-2.0.12/Apache-Test/t/next_available_port.t
# this test tests how a cookie jar can be passed (needs lwp)

use strict;
use warnings FATAL => 'all';

use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;

plan tests => 1, need need_cgi,
                 need_module('mod_env.c');

my $url = '/cgi-bin/next_available_port.pl';

my $port = GET_BODY($url) || '';
ok $port, qr/^\d+$/, "next available port number";