anchor.diff:        (close-socket server))))
   
   (define-test ipv4-tcp-test/sockets
  +  (:tag :ipv4-tcp-socket)
     (labels ((channel-test (client remote-client)
   	     (assert-true (poll-socket client '(determinedp connection-succeeded-p) 10))
   	     (assert-true (poll-socket remote-client 'determinedp 10))
  
positive.code: 	(close-socket server)))))
  
  (define-test connect-to-ipv4-server/does-not-exist
    (labels ((perform-test (client)
  	     (format *standard-output* "~&; This test pauses for a maximum of 2 minutes, do not panic.~%")
  	     (let ((results (poll-socket client '(determinedp connection-failed-p connection-succeeded-p) 120)))
  
negative.code: 	(close-socket client)))))
  
  (define-test ipv4-tcp-test/host-address-and-ports
    (:tag :ipv4-tcp-socket)
    (let ((client-port (random-server-port))
  	(server-port (random-server-port)))
      (labels ((establish-channel (server client)
  