Add ZnHTTPSTest>>#testTransfersGzip to explicitly test the use of GZIP transfer encoding over HTTPS

Author: svenvc

repository/Zinc-Zodiac-Tests.package/ZnHTTPSTest.class/instance/testTransfers.st

@@ -10,7 +10,7 @@ testTransfers
 			https;
 			host: 's3-eu-west-1.amazonaws.com';
 			addPath: 'public-stfx-eu';
-			addPath: ('test-', size asString, '.txt');
+			addPath: ('test-{1}.txt' format: { size });
 			get;
 			close.
 		self assert: client isSuccess.

repository/Zinc-Zodiac-Tests.package/ZnHTTPSTest.class/instance/testTransfersGzip.st

@@ -0,0 +1,23 @@
+testing
+testTransfersGzip
+	| client |
+	self timeLimit: 300 seconds.
+	self ensureSocketStreamFactory.
+	self isNativeSSLPluginPresent ifFalse: [ ^ self ].
+	(client := self httpClient)
+		https;
+		host: 'stfx.eu';
+		setAcceptEncodingGzip.
+	(Integer primesUpTo: 100) do: [ :each | | size |
+		size := 1024 * each + each.
+		client
+			url: ('test-{1}.txt' format: { size });
+			setAcceptEncodingGzip;
+			get.
+		self assert: client isSuccess.
+		self assert: (client response contentType matches: ZnMimeType textPlain).
+		self assert: client response contentLength equals: size.
+		self assert: (client response headers at: 'Content-Encoding') equals: 'gzip'.
+		self 
+			assert: client contents 
+			equals: (self class generateTestData: size)	 ]

repository/Zinc-Zodiac-Tests.package/ZnHTTPSTest.class/instance/testTransfersSingleClient.st

@@ -9,7 +9,7 @@ testTransfersSingleClient
 	(Integer primesUpTo: 100) do: [ :each | | size |
 		size := 1024 * each + each.
 		client
-			url: ('/public-stfx-eu/test-', size asString, '.txt');
+			url: ('/public-stfx-eu/test-{1}.txt' format: { size });
 			get.
 		self assert: client isSuccess.
 		self assert: (client response contentType matches: ZnMimeType textPlain).

repository/Zinc-Zodiac-Tests.package/monticello.meta/categories.st

@@ -1 +1 @@
-SystemOrganization addCategory: #'Zinc-Zodiac-Tests'!
+self packageOrganizer ensurePackage: #'Zinc-Zodiac-Tests' withTags: #()!