Patrick Rein uploaded a new version of WebClient-Tests to project The Trunk:
http://source.squeak.org/trunk/WebClient-Tests-pre.57.mcz

==================== Summary ====================

Name: WebClient-Tests-pre.57
Author: pre
Time: 30 April 2019, 7:02:07.214906 pm
UUID: 74aaf80c-2790-c749-90c9-7ba162e1e812
Ancestors: WebClient-Tests-pre.56

Recategorizes some methods in WebClient-Tests

=============== Diff against WebClient-Tests-pre.56 ===============

Item was changed:
+ ----- Method: WebClientServerTest>>expectedFailures (in category 'failures') -----
- ----- Method: WebClientServerTest>>expectedFailures (in category 'setup') -----
  expectedFailures
  	"Some old versions of HTTPSocket are broken"
  
  	((HTTPSocket respondsTo: #httpRequestHandler:)
  		or:[SystemVersion current version beginsWith: 'Pharo']) 			ifFalse:[^#(testMultipartFiles2)].
  
  	^#()!

Item was changed:
+ ----- Method: WebClientServerTest>>localHostUrl (in category 'private') -----
- ----- Method: WebClientServerTest>>localHostUrl (in category 'setup') -----
  localHostUrl
  	^'http://localhost:', self port asString!

Item was changed:
+ ----- Method: WebClientServerTest>>port (in category 'private') -----
- ----- Method: WebClientServerTest>>port (in category 'setup') -----
  port
  	"Use a random port to minimise chances of concurrently running test suites clashing."
  	^ port
  		ifNil: [port := (10000 to: 50000) atRandom]!

Item was changed:
+ ----- Method: WebClientServerTest>>setUp (in category 'running') -----
- ----- Method: WebClientServerTest>>setUp (in category 'setup') -----
  setUp
  	server := WebServer new listenOn: self port.
  	server passwordAt: 'user' realm: 'test' put: 'pass'.
  	server addToken: 'shushitsissupersecret' toRealm: 'test'.!

Item was changed:
+ ----- Method: WebClientServerTest>>tearDown (in category 'running') -----
- ----- Method: WebClientServerTest>>tearDown (in category 'setup') -----
  tearDown
  	server ifNotNil:[server destroy].
  !

Item was added:
+ ----- Method: WebClientServerTest>>testMultipleRequestsInOneInstance (in category 'tests - requests') -----
+ testMultipleRequestsInOneInstance
+ 
+ 	| resp semaphore client |
+ 	semaphore := Semaphore new.
+ 	server addService: '/endpoint' action:[:req | 
+ 		req send200Response: 'ok'.
+ 		semaphore signal].
+ 
+ 	client := WebClient new.
+ 	1 to: 10 do: [:i |
+ 		resp := client httpGet: self localHostUrl, '/endpoint' do: [ :request |
+ 				request
+ 					headerAt: 'Connection' put: 'Keep-Alive';
+ 					headerAt: 'Accept' put: '*/*' ].
+ 		semaphore wait.
+ 		self assert: resp code = 200.]!