The Trunk: SqueakSSL-Tests-tpr.27.mcz - Packages

24 Oct 2023


      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.
    ]..
  !