Merge pull request #4202 from guillep/fix/udptest

Move method to make it work

src/Network-Tests/TCPSocketTest.class.st

@@ -12,22 +12,6 @@ Class {
 	#category : #'Network-Tests-Kernel'
 }
 
-{ #category : #mocks }
-TCPSocketTest >> faultyUDPSocket [
-
-	| cls |
-
-	cls := Socket newAnonymousSubclass .
-
-	"the mock socket is not sending anything, so there is nothing to wait for"
-	cls compile: 'waitForSendDoneFor: aNumber ^ true'.
-
-	"compile the primitive to not send, but return a 0 count for any send"
-	cls compile: 'primSocket: socketID sendUDPData: aStringOrByteArray toHost: hostAddress port: portNumber startIndex: startIndex count: count ^ 0'.
-
-	^ cls newUDP
-]
-
 { #category : #setup }
 TCPSocketTest >> listenerAddress [
 	^NetNameResolver loopBackAddress

src/Network-Tests/UDPSocketTest.class.st

@@ -9,6 +9,22 @@ Class {
 	#category : #'Network-Tests-Kernel'
 }
 
+{ #category : #support }
+UDPSocketTest >> faultyUDPSocket [
+
+	| cls |
+
+	cls := Socket newAnonymousSubclass .
+
+	"the mock socket is not sending anything, so there is nothing to wait for"
+	cls compile: 'waitForSendDoneFor: aNumber ^ true'.
+
+	"compile the primitive to not send, but return a 0 count for any send"
+	cls compile: 'primSocket: socketID sendUDPData: aStringOrByteArray toHost: hostAddress port: portNumber startIndex: startIndex count: count ^ 0'.
+
+	^ cls newUDP
+]
+
 { #category : #tests }
 UDPSocketTest >> testUDPBroadcastError [
 	"Test that we get a specific error when failure is due to sending to a broadcast address without SO_BROADCAST set"