Andreas Raab uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-ul.21.mcz==================== Summary ====================
Name: Nebraska-ul.21
Author: ul
Time: 23 October 2009, 9:18:20 am
UUID: 33f481f5-4787-3a49-a131-b6f347a59415
Ancestors: Nebraska-nice.20
- make sure that sockets are closed even when the tests fail in ArbitraryObjectSocketTestCase
- add a small delay to ArbitraryObjectSocketTestCase and StringSocketTestCase to avoid random failures/errors under windows
=============== Diff against Nebraska-nice.20 ===============
Item was changed:
----- Method: StringSocketTestCase>>testBogusInput2 (in category 'running') -----
testBogusInput2
| bogoString |
bogoString := String new: 8.
bogoString putInteger32: 2 at: 1.
bogoString putInteger32: -10 at: 5.
socket1 sendData: bogoString.
+ 10 milliSeconds asDelay wait. "data sent, wait a few milliseconds"
end2 processIO.
self should: [ end2 isConnected not ].
!
Item was changed:
----- Method: StringSocketTestCase>>testBogusInput1 (in category 'running') -----
testBogusInput1
| negString |
negString := String new: 4.
negString putInteger32: -10 at: 1.
socket1 sendData: negString.
+ 10 milliSeconds asDelay wait. "data sent, wait a few milliseconds"
end2 processIO.
self should: [ end2 isConnected not ].
!
Item was added:
+ ----- Method: ArbitraryObjectSocketTestCase>>tearDown (in category 'running') -----
+ tearDown
+
+ socket1 ifNotNil: [ socket1 destroy ].
+ socket2 ifNotNil: [ socket2 destroy ]!
Item was changed:
----- Method: ArbitraryObjectSocketTestCase>>testBasics (in category 'testing') -----
testBasics
end1 nextPut: 'hello'.
end1 nextPut: 42.
end1 nextPut: 3@5.
end1 processIO. "hopefully one call is enough...."
+ 10 milliSeconds asDelay wait. "data sent, wait a few milliseconds"
-
end2 processIO. "hopefully one call is enough...."
self should: [ end2 next = 'hello' ].
self should: [ end2 next = 42 ].
self should: [ end2 next = (3@5) ].
!
Locked
