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