The Trunk: NetworkTests-eem.59.mcz

Eliot Miranda uploaded a new version of NetworkTests to project The Trunk:
http://source.squeak.org/trunk/NetworkTests-eem.59.mcz

==================== Summary ====================

Name: NetworkTests-eem.59
Author: eem
Time: 25 September 2020, 1:20:02.115435 pm
UUID: 6c005829-7edf-4318-bbb9-bf452903461a
Ancestors: NetworkTests-pre.58

SocketTest: use teh facilities in Network-eem.242 to use the crrect address family when looking up a name for a socket to connect/accept to.  Hence get rid of the
        sqConnectToAddressSize: Address family not supported by protocol family
        error message from the SocketPlugin when running the SocketTest tests.

=============== Diff against NetworkTests-pre.58 ===============

Item was added:
+ ----- Method: SocketTest>>listenerAddressForFamily: (in category 'fixtures') -----
+ listenerAddressForFamily: addressFamily
+ ^NetNameResolver addressForName: 'localhost' family: addressFamily!

Item was changed:
  ----- Method: SocketTest>>testClientConnect (in category 'tests') -----
  testClientConnect
  "Tests a client socket connection"
 
  clientSocket := Socket newTCP.
+ clientSocket connectTo: (self listenerAddressForFamily: clientSocket addressFamily) port: self listenerPort.
- clientSocket connectTo: self listenerAddress port: self listenerPort.
  clientSocket waitForConnectionFor: 2.
+ self assert: clientSocket isConnected!
- self assert: clientSocket isConnected.
- !

Item was changed:
  ----- Method: SocketTest>>testLocalAddress (in category 'tests') -----
  testLocalAddress
  "Tests the various localAddress values for sockets"
 
  self testServerAccept.
+ self assert: listenerSocket localAddress equals: (self listenerAddressForFamily: listenerSocket addressFamily).
+ self assert: clientSocket localAddress equals: (self listenerAddressForFamily: clientSocket addressFamily).
+ self assert: serverSocket localAddress equals: (self listenerAddressForFamily: serverSocket addressFamily)!
- self assert: listenerSocket localAddress = self listenerAddress.
- self assert: clientSocket localAddress = self listenerAddress.
- self assert: serverSocket localAddress = self listenerAddress.
- !