Added test for pack_addr_in and unpack_addr_in
Artur Bergman [Wed, 29 Aug 2001 10:42:54 +0000 (10:42 +0000)]
Nitpik in test 10

p4raw-id: //depot/perl@11787

ext/Socket/Socket.t

index ea3a4be..20a57a4 100755 (executable)
@@ -13,7 +13,7 @@ BEGIN {
        
 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 @@ if((inet_ntoa((unpack_sockaddr_in(pack_sockaddr_in(100,inet_aton("10.250.230.10"
 } 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");
+}
+