diff options
Diffstat (limited to 'debian/perl-framework/Apache-Test/t/next_available_port.t')
| -rw-r--r-- | debian/perl-framework/Apache-Test/t/next_available_port.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/debian/perl-framework/Apache-Test/t/next_available_port.t b/debian/perl-framework/Apache-Test/t/next_available_port.t new file mode 100644 index 0000000..1eff85d --- /dev/null +++ b/debian/perl-framework/Apache-Test/t/next_available_port.t @@ -0,0 +1,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"; |