Andreas Raab uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ar.17.mcz
==================== Summary ====================
Name: NetworkTests-ar.17 Author: ar Time: 5 August 2010, 12:22:43.714 pm UUID: 8b1cd280-19ac-3c46-970e-7b877b81c28d Ancestors: NetworkTests-ar.16
More tests to illiustrate current socket brockeness in various circumstances.
=============== Diff against NetworkTests-ar.16 ===============
Item was added: + ----- Method: SocketStreamTest>>testNextIntoCloseNonSignaling (in category 'stream protocol') ----- + testNextIntoCloseNonSignaling + "Ensure that #next:into: will function properly when the connection is closed" + + serverStream shouldSignal: false. + clientStream nextPutAll:'A line of text'; flush. + [(Delay forMilliseconds: 100) wait. + clientStream close] fork. + self assert: (serverStream next: 100 into: (String new: 100) startingAt: 1) + equals: 'A line of text'. + !
Item was added: + ----- Method: SocketStreamTest>>testUpToEndCloseNonSignaling (in category 'stream protocol') ----- + testUpToEndCloseNonSignaling + "Ensure that #upToEnd will function properly when the connection is closed" + + serverStream shouldSignal: false. + clientStream nextPutAll:'A line of text'; flush. + [(Delay forMilliseconds: 100) wait. + clientStream close] fork. + self assert: (serverStream upToEnd) + equals: 'A line of text'. + !
Item was added: + ----- Method: SocketStreamTest>>testNextIntoClose (in category 'stream protocol') ----- + testNextIntoClose + "Ensure that #next:into: will function properly when the connection is closed" + + clientStream nextPutAll:'A line of text'; flush. + [(Delay forMilliseconds: 100) wait. + clientStream close] fork. + self assert: (serverStream next: 100 into: (String new: 100) startingAt: 1) + equals: 'A line of text'. + !
Item was added: + ----- Method: SocketStreamTest>>testUpToEndClose (in category 'stream protocol') ----- + testUpToEndClose + "Ensure that #upToEnd will function properly when the connection is closed" + + clientStream nextPutAll:'A line of text'; flush. + [(Delay forMilliseconds: 100) wait. + clientStream close] fork. + self assert: (serverStream upToEnd) + equals: 'A line of text'. + !
squeak-dev@lists.squeakfoundation.org