tim Rowledge uploaded a new version of SqueakSSL-Tests to project The Trunk: http://source.squeak.org/trunk/SqueakSSL-Tests-tpr.27.mcz
==================== Summary ====================
Name: SqueakSSL-Tests-tpr.27 Author: tpr Time: 23 October 2023, 4:38:32.962248 pm UUID: 4ae53b81-182d-46ae-9b52-07e1edcbee00 Ancestors: SqueakSSL-Tests-mt.26
Use the simple (and cached) "Smalltalk platformName" instead of several roundabout methods
=============== Diff against SqueakSSL-Tests-mt.26 ===============
Item was changed: ----- Method: SqueakSSLTest>>expectedFailures (in category 'failures') ----- expectedFailures "If we don't have a cert all the tests fail"
+ Smalltalk platformName = 'Mac OS' ifTrue:[ - SqueakSSL platformName = 'Mac OS' ifTrue:[ "The following tests all need certificate selection to work properly." ^#( testConnectAccept testEncryptDecrypt testMultiFrameDecrypt testSingleByteDecrypt testSplitTlsFrameRead testStreamAccept testStreamConnect testStreamTransfer testSSLSockets testSocketAccept testSocketConnect ) ] ifFalse:[^#()].!
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; 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| + Smalltalk platformName = 'Mac OS' - SqueakSSL platformName = 'Mac OS' ifTrue:[ex resume] ifFalse:[ex pass]]. ] raise: Error. ].. !