The Trunk: NetworkTests-ar.17.mcz

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'.
+ !