[Pkg] The Trunk: NetworkTests-ar.17.mcz

[commits at source.squeak.org]

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