1# Before `make install' is performed this script should be runnable with
2# `make test'. After `make install' it should work as `perl t/02settings.t'
3
4use IO::Socket::SSL;
5eval {require "t/ssl_settings.req";} ||
6eval {require "ssl_settings.req";};
7use vars qw($SSL_SERVER_ADDR);
8
9print "1..1\n";
10
11$test=1;
12my $server = IO::Socket::INET->new( 
13    # pick any port on LocalAddr
14    LocalAddr => $SSL_SERVER_ADDR,
15    Listen => 1
16);
17
18if (!$server) {
19    print "Bail out! ";
20    print("Setup of test IO::Socket::INET server failed: $!.  All the rest of ",
21	"the tests in this suite will fail also unless you change the values in ",
22	"ssl_settings.req in the t/ directory.");
23    exit;
24}
25
26print "ok $test\n";
27close $server;
28