summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/Apache-Test/t/next_available_port.t
blob: 1eff85d9b1d48e7c74599f4e301f1b48a5d770ad (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# 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";