Tobias Pape uploaded a new version of WebClient-Tests to project The Trunk:
http://source.squeak.org/trunk/WebClient-Tests-topa.52.mcz

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

Name: WebClient-Tests-topa.52
Author: topa
Time: 6 July 2017, 3:24:10.565021 pm
UUID: b84fa4c2-2761-4616-b545-68d816ae3f28
Ancestors: WebClient-Tests-topa.51

rename charset test, add gzip test

=============== Diff against WebClient-Tests-topa.51 ===============

Item was removed:
- ----- Method: WebClientServerTest>>testContentEncoding (in category 'tests - misc') -----
- testContentEncoding
- 	"Test encoding detection"
- 	| resp expected |
- 	expected := '«garçon Léon»'.
- 	#(
- 		'latin-1' #[171 103  97 114 231 111 110  32  76 233 111 110 187]
- 		'macroman' #[199 103  97 114 141 111 110  32  76 142 111 110 200]
- 		'utf-8' #[194 171 103  97 114 195 167 111 110  32  76 195 169 111 110 194 187]
- 	) pairsDo: [:name :bytes |
- 		server addService: '/testcontent', name action:[:req|req send200Response: bytes asString contentType: 'text/plain; charset=', name].
- 		resp := WebClient httpGet: self localHostUrl, '/testcontent', name.
- 		self assert: 200 equals: resp code.
- 		self assert: expected equals: resp content].
- !

Item was added:
+ ----- Method: WebClientServerTest>>testContentEncodingGZip (in category 'tests - misc') -----
+ testContentEncodingGZip
+ 	"Test content encoding"
+ 	| payload resp |
+ 	payload := 'hello' zipped.
+ 	server addService: '/testencoding' action: [:req|
+ 		req send200Response: payload contentType: 'text/plain' do: [:response |
+ 			response headerAt: 'Content-Encoding' put: 'gzip']].
+ 	resp := WebClient httpGet: self localHostUrl, '/testencoding'.
+ 	self assert: 200 equals: resp code.
+ 	self assert: 'hello' equals: resp content.
+ !

Item was added:
+ ----- Method: WebClientServerTest>>testContentTypeCharsetEncoding (in category 'tests - misc') -----
+ testContentTypeCharsetEncoding
+ 	"Test encoding detection"
+ 	| resp expected |
+ 	expected := '«garçon Léon»'.
+ 	#(
+ 		'latin-1' #[171 103  97 114 231 111 110  32  76 233 111 110 187]
+ 		'macroman' #[199 103  97 114 141 111 110  32  76 142 111 110 200]
+ 		'utf-8' #[194 171 103  97 114 195 167 111 110  32  76 195 169 111 110 194 187]
+ 	) pairsDo: [:name :bytes |
+ 		server addService: '/testcontent', name action:[:req|req send200Response: bytes asString contentType: 'text/plain; charset=', name].
+ 		resp := WebClient httpGet: self localHostUrl, '/testcontent', name.
+ 		self assert: 200 equals: resp code.
+ 		self assert: expected equals: resp content].
+ !