anchor.diff:    t)
   (deftest socket-connect.2
     (with-caught-conditions (nil nil)
  -    (let ((sock (usocket:socket-connect #(65 110 12 237) 80)))
  +    (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
         (unwind-protect
             (typep sock 'usocket:usocket)
           (usocket:socket-close sock))))
     t)
   (deftest socket-connect.3
     (with-caught-conditions (nil nil)
  -    (let ((sock (usocket:socket-connect 1097731309 80)))
  +    (let ((sock (usocket:socket-connect (usocket::host-byte-order +common-lisp-net+) 80)))
         (unwind-protect
             (typep sock 'usocket:usocket)
           (usocket:socket-close sock))))
  
positive.code:                            #-(or lispworks armedbear cmu openmcl)
                               'usocket:host-unreachable-error
                             nil)
        (usocket:socket-connect +non-existing-host+ 80) ;; == #(127 0 0 0)
        :unreach)
    nil)
  
  
negative.code: 
  (deftest socket-name.1
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-peer-address sock)
          (usocket:socket-close sock))))
    #.+common-lisp-net+)
  (deftest socket-name.2
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-peer-port sock)
          (usocket:socket-close sock))))
    80)
  (deftest socket-name.3
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-peer-name sock)
          (usocket:socket-close sock))))
    #.+common-lisp-net+ 80)
  (deftest socket-name.4
    (with-caught-conditions (nil nil)
      (let ((sock (usocket:socket-connect +common-lisp-net+ 80)))
        (unwind-protect
            (usocket::get-local-address sock)
          (usocket:socket-close sock))))
    #(192 168 1 65))
  
  
  (defun run-usocket-tests ()
  