1N/A chdir 't' if -d 't'; 1N/A '127.0.0.1' : 'localhost'; 1N/A print "# Connected to " . 1N/A print "# You're allowed to fail tests 2 and 3 if\n"; 1N/A print "# the echo service has been disabled or if your\n"; 1N/A print "# gethostbyname() cannot resolve your localhost.\n"; 1N/A print "# 'Connection refused' indicates disabled echo service.\n"; 1N/A print "# 'Interrupted system call' indicates a hanging echo service.\n"; 1N/A print "# Error: $!\n"; 1N/A print "ok 2 - skipped\n"; 1N/A print "ok 3 - skipped\n"; 1N/A print "# Error: $!\n"; 1N/A print "# Connected to " . 1N/A print "# You're allowed to fail tests 5 and 6 if\n"; 1N/A print "# the echo service has been disabled.\n"; 1N/A print "# 'Interrupted system call' indicates a hanging echo service.\n"; 1N/A print "# Error: $!\n"; 1N/A print "ok 5 - skipped\n"; 1N/A print "ok 6 - skipped\n"; 1N/A print "# Error: $!\n"; 1N/Aprint ($w == 1 ? "not ok 7\n" : "ok 7\n") ; 1N/Aprint ($w == 1 ? "ok 8\n" : "not ok 8\n") ; 1N/A# the value thru the entire chain. 1N/A print (($port == 100) ? "ok 12\n" : "not ok 12\n"); 1N/A print "not ok 15\n"; 1N/A # see if we can handle abstract sockets 1N/A print "not ok 17\n"; 1N/A # doesn't have abstract socket support 1N/A print "ok 17 - skipped on this platform\n";