The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl t/02settings.t'

use IO::Socket::SSL;
eval {require "t/ssl_settings.req";} ||
eval {require "ssl_settings.req";};
use vars qw($SSL_SERVER_PORT $SSL_SERVER_ADDR);

print "1..1\n";

$test=1;
my $server = new IO::Socket::INET(LocalPort => $SSL_SERVER_PORT,
	                          LocalAddr => $SSL_SERVER_ADDR,
				  Listen => 1,
				  ReuseAddr => 1);

if (!$server) {
    print "Bail out! ";
    print("Setup of test IO::Socket::INET server failed: $!.  All the rest of ",
	"the tests in this suite will fail also unless you change the values in ",
	"ssl_settings.req in the t/ directory.");
    exit;
}

print "ok $test\n";
close $server;