socket.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
print "1..0\n";
exit 0;
}
}
use Socket;
print "1..8\n";
print "ok 1\n";
print "ok 2\n";
print "# Connected to " .
}
}
else {
print "# You're allowed to fail tests 2 and 3 if.\n";
print "# The echo service has been disabled.\n";
print "# $!\n";
print "ok 2\n";
print "ok 3\n";
}
}
else {
print "# $!\n";
print "not ok 1\n";
}
print "ok 4\n";
print "ok 5\n";
print "# Connected to " .
}
}
else {
print "# You're allowed to fail tests 5 and 6 if.\n";
print "# The echo service has been disabled.\n";
print "# $!\n";
print "ok 5\n";
print "ok 6\n";
}
}
else {
print "# $!\n";
print "not ok 4\n";
}
# warnings
++ $w if $_[0] =~ /^6-ARG sockaddr_in call is deprecated/ ;
} ;
$w = 0 ;
sockaddr_in(1,2,3,4,5,6) ;
print ($w == 1 ? "not ok 7\n" : "ok 7\n") ;
use warnings 'Socket' ;
sockaddr_in(1,2,3,4,5,6) ;
print ($w == 1 ? "ok 8\n" : "not ok 8\n") ;