Skip to content

Commit cce282c

Browse files
dalehenrichdalehenrich
committed
Merge pull request #78 from GsDevKit/issue_77
fix Issue 77: Zodiac ported to GemStone 3.3
2 parents f8a268c + 00efe6b commit cce282c

File tree

14 files changed

+106
-73
lines changed

14 files changed

+106
-73
lines changed

‎repository/BaselineOfZincHTTPComponents.package/BaselineOfZincHTTPComponents.class/instance/baseline..st

+33-8
Original file line numberDiff line numberDiff line change
@@ -25,10 +25,6 @@ baseline: spec
2525
package: 'Zinc-AWS'
2626
with: [ spec requires: #('Zinc-HTTP' 'XML Support') ];
2727
package: 'Zinc-REST' with: [ spec requires: #('Zinc-HTTP' 'NeoJSON') ];
28-
package: 'Zinc-Zodiac'
29-
with: [ spec requires: #('Zinc-HTTP' 'Zodiac-Core' 'Zodiac-Tests') ];
30-
package: 'Zodiac-Core';
31-
package: 'Zodiac-Tests' with: [ spec requires: 'Zodiac-Core' ];
3228
package: 'Zinc-WebSocket-Core' with: [ spec requires: 'Zinc-HTTP' ];
3329
package: 'Zinc-WebSocket-Tests'
3430
with: [ spec requires: 'Zinc-WebSocket-Core' ];
@@ -81,7 +77,6 @@ baseline: spec
8177
#('SSO-OAuth1' 'SSO-OAuth2' 'SSO-OpenID' 'SSO-Demo' 'Zinc-SSO-Demo');
8278
group: 'WWS' with: #('Zinc-WWS-Server' 'Zinc-WWS-Client');
8379
group: 'REST' with: #('Zinc-REST');
84-
group: 'Zodiac' with: #('Zinc-Zodiac');
8580
yourself ].
8681
spec
8782
for: #'squeakCommon'
@@ -93,8 +88,21 @@ baseline: spec
9388
versionString: #'stable';
9489
repository: 'http://mc.stfx.eu/Neo' ];
9590
yourself.
96-
spec package: 'Zinc-Patch-HTTPSocket' with: [ spec requires: 'Zinc-HTTP' ].
97-
spec group: 'Patch-HTTPSocket' with: #('Zinc-Patch-HTTPSocket') ].
91+
spec
92+
package: 'Zinc-Patch-HTTPSocket' with: [ spec requires: 'Zinc-HTTP' ];
93+
package: 'Zinc-Zodiac'
94+
with: [ spec requires: #('Zinc-HTTP' 'Zodiac-Core' 'Zodiac-Tests') ];
95+
package: 'Zodiac-Core';
96+
package: 'Zodiac-Tests'
97+
with: [
98+
spec
99+
requires: 'Zodiac-Core';
100+
yourself ].
101+
spec
102+
group: 'Patch-HTTPSocket' with: #('Zinc-Patch-HTTPSocket');
103+
group: 'Zodiac' with: #('Zinc-Zodiac');
104+
group: 'SSL' with: #('Zodiac');
105+
yourself ].
98106
spec
99107
for: #'pharo1.x'
100108
do: [
@@ -153,6 +161,7 @@ baseline: spec
153161
spec
154162
group: 'Core' with: #('Zinc-GemStone-Server-Tools');
155163
group: 'CI' with: #('REST' 'WebSocket');
164+
group: 'SSL' with: #();
156165
yourself ].
157166
spec
158167
for: #'gs2.x'
@@ -193,11 +202,27 @@ baseline: spec
193202
with: [ spec requires: 'Zinc-Character-Encoding-Tests' ];
194203
yourself ].
195204
spec
196-
for: #(#'gs3.2.x' #'gs.3.3.x')
205+
for: #(#'gs3.2.x' #'gs3.3.x')
197206
do: [
198207
spec
199208
package: 'Zinc-Character-Encoding-Core'
200209
with: [ spec includes: 'Zinc-Character-Encoding-GS32-Core' ];
201210
package: 'Zinc-Character-Encoding-GS32-Core'
202211
with: [ spec requires: 'Zinc-Character-Encoding-Core' ];
212+
yourself ].
213+
spec
214+
for: #(#'gs3.3.x')
215+
do: [
216+
spec
217+
baseline: 'Zodiac'
218+
with: [
219+
spec
220+
loads: #('Core');
221+
repository: 'github://GsDevKit/Zodiac:gs_master/repository' ];
222+
yourself.
223+
spec
224+
package: 'Zinc-Zodiac' with: [ spec requires: #('Zinc-HTTP' 'Zodiac') ];
225+
yourself.
226+
spec
227+
group: 'SSL' with: #('Zinc-Zodiac');
203228
yourself ]

‎repository/BaselineOfZincHTTPComponents.package/BaselineOfZincHTTPComponents.class/methodProperties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -2,4 +2,4 @@
22
"class" : {
33
},
44
"instance" : {
5-
"baseline:" : "dkh 01/12/2015 10:56" } }
5+
"baseline:" : "dkh 12/15/2015 11:36" } }

‎repository/BaselineOfZincHTTPComponents.package/monticello.meta/version

+1-1
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
(name 'BaselineOfZincHTTPComponents-dkh.19' message 'Issue #69: fix mistake in tag spec for baseline ... start adding support for Rest transactional example' id 'b8134660-25eb-46d5-9cbb-b4c4fe2b21d7' date '01/12/2015' time '10:58:15' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.18' message 'Issue #58: change GsApplicationTools project reference back to: gsApplicationTools:v.1.?' id 'f297e739-5425-4c6e-8262-3039ca36e341' date '01/07/2015' time '16:20:29' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.17' message 'Issue #58: use dev branch for GsApplicationTools' id '72892950-b7c5-4a4c-b40a-5cfd0b98688a' date '01/06/2015' time '15:14:41' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.16' message 'Issue #58: mods to be minimally compatible with GsApplicationTools v1.0.0' id '34566c61-ca88-4eaf-b4ad-2149de6755fe' date '01/06/2015' time '11:59:55' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.15' message 'Issue #58: ZnSingleThreadedServer>>handleRequestProtected: don''t pass the exception ... debugMode doesn''t quite appy to GemStone ... need different granularity I think ... GsPharo 0.9.2 needs to be used' id '6f7305be-3dbd-40f9-a81f-3f920132534e' date '12/02/2014' time '16:29:14' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.14' message 'Issue #58: add dependency upon GsApplicationTools for Zinc-GemStone-Server-Tools, a new package which holds ZnServerStarter class needed by web socket tests ...' id 'e09422d2-1065-4ceb-8845-084f10a4c4f7' date '11/26/2014' time '13:39:44' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.13' message 'NeoJSON is on gs_master branch now' id 'f6fdee09-f8c6-4738-907c-215a6eae7bcf' date '11/22/2014' time '12:39:05' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.12' message 'Issue #58: load NeoJSON tests now ... they should be passing?' id '71ee4921-b3f1-4550-bec2-277fe6363086' date '11/20/2014' time '17:43:32' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.11' message 'Issue #58: switch Cryptography project to use GsDevKit/Cryptography project and add backin into CI group, since the project should now load without errors' id '7602ba2b-54cc-45de-a7ad-567191c9b1c5' date '11/18/2014' time '12:09:24' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.10' message 'Issue #58: pull WebSockt from CI group ... interested in seeing how things are for NeoJSON and and zinc core' id '3b28664e-1ba7-4d76-aff5-e5c89eb2236b' date '11/17/2014' time '18:16:16' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.9' message 'Issue #60: reference GsDevKit/NeoJSON directory and only load Core, since NeoJSON tests are known not to pass: https://github.com/GsDevKit/NeoJSON/issues/3' id '73c88fdd-cbe7-4a5c-8485-923f314c6c44' date '11/17/2014' time '18:14:59' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.8' message 'Issue #58: re-enable websocket as part of CI ... this will take longer to get straightened out as both NeoJSON and WebSockets have issues' id '342aa976-a532-4d8b-a428-6e7cb9111a41' date '11/17/2014' time '18:03:43' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.7' message 'Issue #58: disable web-socket test load for ''CI'' until Cryptography load issue resolvedIssue #60: fix NeoJSON specification and add ''REST'' to ''CI'' group ... defer reference to GsDevKit/NeoJSON project until travis tests have been enabled ...' id 'fec29f56-7062-41a6-85d2-9d7a439559e4' date '11/17/2014' time '16:33:26' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.6' message 'Issue #58: cryptography configuration needed updating, so added stable version while I was at it ...' id '00296be5-2d30-418d-a474-2f373393e313' date '11/01/2014' time '13:00:26' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.5' message 'Issue #58: no stable version defined in the current Cryptography configuration...' id '67a67e96-6cf9-4c32-a87a-9e3d8bc3d647' date '11/01/2014' time '12:46:46' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.4' message 'Issue #58: create CI group to specifiy packages to be loaded by travis-ci for testing ... for GemStone that includes Zinc-WebSocket-Tests ... expect failures since Cryptography project is not up to snuff...yet' id '15af9af6-9829-412c-be6b-70cdc7fda24a' date '11/01/2014' time '12:28:52' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.3' message 'Issue #55: bump mcz version of the gs_master branch BaselineOfZincHTTPComponents, to avoid duplice mcz versions' id 'e175a78c-9a07-4da1-97a2-96eb0d40ba96' date '10/27/2014' time '15:10:49' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.2' message 'restore Zodiac packages and groups to configuration ... not ported to GemStone yet, see Issue #55 for details' id '6311a4fb-03de-42dc-81c7-b96971d30368' date '10/15/2014' time '11:55:57' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-JohanBrichau.1' message 'renamed BaselineOfZinc to BaselineOfZincHTTPComponents' id 'e022a66b-5bb4-47eb-b582-74a3ebaa1f9e' date '07/09/2014' time '21:16:19' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
1+
(name 'BaselineOfZincHTTPComponents-dkh.22' message 'Issue #77: Zodiac will only be supported for GemStone 3.3, so fiddle baseline. Update ZnHTTPSTests>>testGForceInria and and adjust ZnHTTPSTests for GemStone' id '703519fa-30e3-4d08-b127-463916eafe8b' date '12/15/2015' time '14:44:35' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.21' message 'Issue #77: remove SSL group from the CI group ... not expected to pass at the moment' id 'f794ab4a-4f35-4b17-a926-575d33cab3f3' date '12/01/2015' time '14:45:48' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.20' message 'Issue #77: refactor the packages in baseline for Zodiac. GemStone uses a baseline project to load Zodiac and Pharo does not ... add SSL group for loading SSL support on pharo or GemStone' id 'e8cbcd5d-4c1f-4fb9-ae4a-f6a82ed2d4ae' date '12/01/2015' time '11:47:16' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.19' message 'Issue #69: fix mistake in tag spec for baseline ... start adding support for Rest transactional example' id 'b8134660-25eb-46d5-9cbb-b4c4fe2b21d7' date '01/12/2015' time '10:58:15' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.18' message 'Issue #58: change GsApplicationTools project reference back to: gsApplicationTools:v.1.?' id 'f297e739-5425-4c6e-8262-3039ca36e341' date '01/07/2015' time '16:20:29' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.17' message 'Issue #58: use dev branch for GsApplicationTools' id '72892950-b7c5-4a4c-b40a-5cfd0b98688a' date '01/06/2015' time '15:14:41' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.16' message 'Issue #58: mods to be minimally compatible with GsApplicationTools v1.0.0' id '34566c61-ca88-4eaf-b4ad-2149de6755fe' date '01/06/2015' time '11:59:55' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.15' message 'Issue #58: ZnSingleThreadedServer>>handleRequestProtected: don''t pass the exception ... debugMode doesn''t quite appy to GemStone ... need different granularity I think ... GsPharo 0.9.2 needs to be used' id '6f7305be-3dbd-40f9-a81f-3f920132534e' date '12/02/2014' time '16:29:14' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.14' message 'Issue #58: add dependency upon GsApplicationTools for Zinc-GemStone-Server-Tools, a new package which holds ZnServerStarter class needed by web socket tests ...' id 'e09422d2-1065-4ceb-8845-084f10a4c4f7' date '11/26/2014' time '13:39:44' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.13' message 'NeoJSON is on gs_master branch now' id 'f6fdee09-f8c6-4738-907c-215a6eae7bcf' date '11/22/2014' time '12:39:05' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.12' message 'Issue #58: load NeoJSON tests now ... they should be passing?' id '71ee4921-b3f1-4550-bec2-277fe6363086' date '11/20/2014' time '17:43:32' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.11' message 'Issue #58: switch Cryptography project to use GsDevKit/Cryptography project and add backin into CI group, since the project should now load without errors' id '7602ba2b-54cc-45de-a7ad-567191c9b1c5' date '11/18/2014' time '12:09:24' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.10' message 'Issue #58: pull WebSockt from CI group ... interested in seeing how things are for NeoJSON and and zinc core' id '3b28664e-1ba7-4d76-aff5-e5c89eb2236b' date '11/17/2014' time '18:16:16' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.9' message 'Issue #60: reference GsDevKit/NeoJSON directory and only load Core, since NeoJSON tests are known not to pass: https://github.com/GsDevKit/NeoJSON/issues/3' id '73c88fdd-cbe7-4a5c-8485-923f314c6c44' date '11/17/2014' time '18:14:59' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.8' message 'Issue #58: re-enable websocket as part of CI ... this will take longer to get straightened out as both NeoJSON and WebSockets have issues' id '342aa976-a532-4d8b-a428-6e7cb9111a41' date '11/17/2014' time '18:03:43' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.7' message 'Issue #58: disable web-socket test load for ''CI'' until Cryptography load issue resolvedIssue #60: fix NeoJSON specification and add ''REST'' to ''CI'' group ... defer reference to GsDevKit/NeoJSON project until travis tests have been enabled ...' id 'fec29f56-7062-41a6-85d2-9d7a439559e4' date '11/17/2014' time '16:33:26' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.6' message 'Issue #58: cryptography configuration needed updating, so added stable version while I was at it ...' id '00296be5-2d30-418d-a474-2f373393e313' date '11/01/2014' time '13:00:26' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.5' message 'Issue #58: no stable version defined in the current Cryptography configuration...' id '67a67e96-6cf9-4c32-a87a-9e3d8bc3d647' date '11/01/2014' time '12:46:46' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.4' message 'Issue #58: create CI group to specifiy packages to be loaded by travis-ci for testing ... for GemStone that includes Zinc-WebSocket-Tests ... expect failures since Cryptography project is not up to snuff...yet' id '15af9af6-9829-412c-be6b-70cdc7fda24a' date '11/01/2014' time '12:28:52' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.3' message 'Issue #55: bump mcz version of the gs_master branch BaselineOfZincHTTPComponents, to avoid duplice mcz versions' id 'e175a78c-9a07-4da1-97a2-96eb0d40ba96' date '10/27/2014' time '15:10:49' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-dkh.2' message 'restore Zodiac packages and groups to configuration ... not ported to GemStone yet, see Issue #55 for details' id '6311a4fb-03de-42dc-81c7-b96971d30368' date '10/15/2014' time '11:55:57' author 'dkh' ancestors ((name 'BaselineOfZincHTTPComponents-JohanBrichau.1' message 'renamed BaselineOfZinc to BaselineOfZincHTTPComponents' id 'e022a66b-5bb4-47eb-b582-74a3ebaa1f9e' date '07/09/2014' time '21:16:19' author 'JohanBrichau' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

‎repository/Zinc-Tests.package/ZnClientTests.class/instance/testIfModifiedSinceNotModified.st

+11-10
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,13 @@
11
testing
22
testIfModifiedSinceNotModified
3-
| client request response |
4-
(client := ZnClient new) host: 'caretaker.wolf359.be'.
5-
[
6-
response := client
7-
url: '/small.html';
8-
setIfModifiedSince: (Date year: 2011 month: 1 day: 1);
9-
get;
10-
response.
11-
self assert: response isNotModified.
12-
self assert: response hasEntity not ] ensure: [ client close ]
3+
| client request response |
4+
(client := ZnClient new) host: 'stfx.eu'.
5+
[
6+
response := client
7+
url: '/small.html';
8+
setIfModifiedSince: (Date year: 2012 month: 9 day: 1);
9+
get;
10+
response.
11+
self assert: response isNotModified.
12+
self assert: response hasEntity not ]
13+
ensure: [ client close ]

‎repository/Zinc-Tests.package/ZnClientTests.class/methodProperties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
"testIfFailNonExistingHost" : "SvenVanCaekenberghe 11/8/2011 22:16",
1717
"testIfFailNotFound" : "SvenVanCaekenberghe 11/8/2011 22:16",
1818
"testIfFailWrongType" : "SvenVanCaekenberghe 11/8/2011 22:16",
19-
"testIfModifiedSinceNotModified" : "SvenVanCaekenberghe 11/8/2011 22:16",
19+
"testIfModifiedSinceNotModified" : "dkh 12/16/2015 12:17",
2020
"testLogging" : "SvenVanCaekenberghe 11/8/2011 22:16",
2121
"testPostForm" : "dkh 06/27/2014 14:18",
2222
"testPostMultipart" : "dkh 06/27/2014 14:31",

‎repository/Zinc-Tests.package/ZnNewGsServerTests.class/properties.json

+1-1
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@
55
"classvars" : [
66
"InteractiveRemoteServer",
77
"StaticRemoteServer" ],
8-
"commentStamp" : "dkh 01/08/2015 15:37",
8+
"commentStamp" : "",
99
"instvars" : [
1010
],
1111
"name" : "ZnNewGsServerTests",

‎repository/Zinc-Tests.package/monticello.meta/version

+1-1
Large diffs are not rendered by default.

‎repository/Zinc-Zodiac.package/ZnHTTPSTests.class/instance/isNativeSSLPluginPresent.st

+4-5
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,6 @@
11
private
22
isNativeSSLPluginPresent
3-
"Return whether the SSL VM plugin can be instanciated and intialized."
4-
5-
^ [ ZdcPluginSSLSession new destroy. true ]
6-
on: ZdcPluginMissing
7-
do: [ false ]
3+
"Return whether the SSL VM plugin can be instanciated and intialized."
4+
5+
ZdcGemStoneSSLSession new destroy.
6+
^ true

‎repository/Zinc-Zodiac.package/ZnHTTPSTests.class/instance/setUp.st

+4
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
running
2+
setUp
3+
super setUp.
4+
GsSecureSocket disableCertificateVerificationOnClient

‎repository/Zinc-Zodiac.package/ZnHTTPSTests.class/instance/testGForceInria.st

+8-8
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,10 @@
11
testing
22
testGForceInria
3-
| client |
4-
self ensureSocketStreamFactory.
5-
self isNativeSSLPluginPresent ifFalse: [ ^ self ].
6-
(client := ZnClient new)
7-
get: 'http://gforge.inria.fr/frs/?group_id=1299'.
8-
self assert: client isSuccess.
9-
self assert: (client contents includesSubstring: 'INRIA').
10-
client close
3+
| client |
4+
self ensureSocketStreamFactory.
5+
self isNativeSSLPluginPresent
6+
ifFalse: [ ^ self ].
7+
(client := ZnClient new) get: 'http://gforge.inria.fr/frs/?group_id=1299'.
8+
self assert: client isSuccess.
9+
self assert: (client contents includesSubstring: 'inria').
10+
client close

‎repository/Zinc-Zodiac.package/ZnHTTPSTests.class/instance/testGetPharoVersion.st

+16-14
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,18 @@
11
testing
22
testGetPharoVersion
3-
| client lastBuildVersion version |
4-
self ensureSocketStreamFactory.
5-
self isNativeSSLPluginPresent ifFalse: [ ^ self ].
6-
lastBuildVersion := (client := ZnClient new)
7-
beOneShot;
8-
get: 'https://ci.inria.fr/pharo/job/Pharo-2.0/lastSuccessfulBuild/api/xml?xpath=/*/description'.
9-
self assert: client isSuccess.
10-
self assert: (client response contentType matches: ZnMimeType applicationXml).
11-
self assert: client response contentLength > 0.
12-
self assert: lastBuildVersion notNil.
13-
self assert: lastBuildVersion isString.
14-
self assert: lastBuildVersion size > 0.
15-
version := (lastBuildVersion copyAfter: $>) copyUpTo: $<.
16-
self deny: version isEmpty
3+
| client lastBuildVersion version |
4+
self ensureSocketStreamFactory.
5+
self isNativeSSLPluginPresent
6+
ifFalse: [ ^ self ].
7+
lastBuildVersion := (client := ZnClient new)
8+
beOneShot;
9+
get:
10+
'https://ci.inria.fr/pharo/job/Pharo-4.0/lastSuccessfulBuild/api/xml?xpath=/*/fullDisplayName'.
11+
self assert: client isSuccess.
12+
self assert: (client response contentType matches: ZnMimeType applicationXml).
13+
self assert: client response contentLength > 0.
14+
self assert: lastBuildVersion notNil.
15+
self assert: lastBuildVersion isString.
16+
self assert: lastBuildVersion size > 0.
17+
version := (lastBuildVersion copyAfter: $>) copyUpTo: $<.
18+
self deny: version isEmpty

0 commit comments

Comments
 (0)