X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Ftests.lisp;h=3fec556b729eec3257e0cb32248452188b8c84e8;hb=891ba76c8476bb95951c4049e7c20d5895cb2233;hp=5d15ab03d32ec45dc786b3f45dd6e89221a0505e;hpb=4a59cac8038dde1232b82fed1470b184b68cf6e1;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/tests.lisp b/contrib/sb-bsd-sockets/tests.lisp
index 5d15ab0..3fec556 100644
--- a/contrib/sb-bsd-sockets/tests.lisp
+++ b/contrib/sb-bsd-sockets/tests.lisp
@@ -102,6 +102,11 @@ Tests are in the file <tt>tests.lisp</tt> and also make good examples.
         ((or (>= i (length buffer)) (not c) (eq c eof)) i)
       (setf (elt buffer i) c))))
 
+#+internet-available
+(deftest name-service-return-type
+  (vectorp (host-ent-address (get-host-by-address #(127 0 0 1))))
+  t)
+
 ;;; these require that the echo services are turned on in inetd
 #+internet-available
 (deftest simple-tcp-client
@@ -116,6 +121,18 @@ Tests are in the file <tt>tests.lisp</tt> and also make good examples.
   t)
 
 #+internet-available
+(deftest sockaddr-return-type
+  (let ((s (make-instance 'inet-socket :type :stream :protocol :tcp)))
+    (unwind-protect 
+	 (progn
+	   (socket-connect s #(127 0 0 1) 7)
+	   (multiple-value-bind (host port) (socket-peername s)
+	     (and (vectorp host)
+		  (numberp port))))
+      (socket-close s)))
+  t)
+
+#+internet-available
 (deftest simple-udp-client
   (let ((s (make-instance 'inet-socket :type :datagram :protocol (get-protocol-by-name "udp")))
         (data (make-string 200)))