Patrick Rein uploaded a new version of SqueakSSL-Tests to project The Trunk:
http://source.squeak.org/trunk/SqueakSSL-Tests-pre.22.mcz==================== Summary ====================
Name: SqueakSSL-Tests-pre.22
Author: pre
Time: 17 August 2016, 10:41:49.267232 am
UUID: beffd6c1-026b-f64e-9cf4-ca6d17ef1a68
Ancestors: SqueakSSL-Tests-pre.21
Gives the SqueakSSL tests even more timeout tolerance to cater for all kinds of connections
=============== Diff against SqueakSSL-Tests-pre.21 ===============
Item was changed:
----- Method: SqueakSSLTest>>testFaceBookAPI (in category 'tests') -----
testFaceBookAPI
"Facebook sends incomplete data during SSL handshake.
Useful for testing an edge condition in SqueakSSL."
self
+ timeout: 90;
- timeout: 60;
ensureInternetConnectionTo: '
http://www.facebook.com'.
Smalltalk at: #WebClient ifPresent:[:webClient|
self shouldnt:[
[webClient httpGet: '
https://graph.facebook.com/oauth/access_token']
"Allow certificate errors on the Mac since cert validation isn't
implemented yet."
on: SqueakSSLCertificateError do:[:ex|
SqueakSSL platformName = 'Mac OS'
ifTrue:[ex resume]
ifFalse:[ex pass]].
] raise: Error.
]..
!
Item was changed:
----- Method: SqueakSSLTest>>testGooglePopStream (in category 'tests') -----
testGooglePopStream
"This tests the dreaded data-in-last-handshake problem that some people
have been seeing. Google mail (at times) sends the first data chunk together
with the last handshake and the Windows SSL code did not handle that correctly"
"self run: #testGooglePopStream"
| hostName address socket response stream |
+ self timeout: 90.
- self timeout: 60.
hostName := 'pop.gmail.com'.
address := NetNameResolver addressForName: hostName.
socket := Socket newTCP.
socket connectTo: address port: 995.
socket waitForConnectionFor: 10.
stream := self secureSocketStream on: socket.
[
stream sslConnect.
response := stream upToAll: String crlf.
self assert: response notEmpty.
] ensure:[stream destroy].
!
Locked
