Change 11787 by sky@sky-lab on 2001/08/29 10:42:54
Added test for pack_addr_in and unpack_addr_in
Nitpik in test 10
Affected files ...
... //depot/perl/ext/Socket/Socket.t#3 edit
Differences ...
==== //depot/perl/ext/Socket/Socket.t#3 (xtext) ====
Index: perl/ext/Socket/Socket.t
--- perl/ext/Socket/Socket.t.~1~ Wed Aug 29 05:00:05 2001
+++ perl/ext/Socket/Socket.t Wed Aug 29 05:00:05 2001
@@ -13,7 +13,7 @@
use Socket;
-print "1..11\n";
+print "1..13\n";
if (socket(T,PF_INET,SOCK_STREAM,6)) {
print "ok 1\n";
@@ -93,6 +93,11 @@
} else {
print "not ok 9\n";
}
-print ((inet_aton(10.10.10.10) == v10.10.10.10) ? "ok 10\n" : "not ok 10\n");
+print ((inet_aton("10.10.10.10") eq v10.10.10.10) ? "ok 10\n" : "not ok 10\n");
print ((inet_ntoa(v10.10.10.10) eq '10.10.10.10') ? "ok 11\n" : "not ok 11\n");
-
+{
+ my ($port,$addr) = unpack_sockaddr_in(pack_sockaddr_in(100,v10.10.10.10));
+ print (($port == 100) ? "ok 12\n" : "not ok 12\n");
+ print (($addr eq v10.10.10.10) ? "ok 13\n" : "not ok 13\n");
+}
+
End of Patch.
