[Pkg] The Trunk: WebClient-Tests-topa.53.mcz

[commits at source.squeak.org]

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

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

Name: WebClient-Tests-topa.53
Author: topa
Time: 18 September 2017, 4:32:34.123823 pm
UUID: fdd9459a-c066-490b-8c51-253a3dbaecfa
Ancestors: WebClient-Tests-topa.52

Test for server/port name handling

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

Item was added:
+ ----- Method: WebClientServerTest>>testServerNameAndPort (in category 'tests - misc') -----
+ testServerNameAndPort
+ 
+ 	| c| 
+ 	c := WebClient new.
+ 	
+ 	c server: 'www.google.com'.
+ 	self assert: 'www.google.com' equals: c serverName.
+ 	self assert: 'www.google.com' equals: c serverUrlName.
+ 	self assert: 80 equals: c serverPort.
+ 
+ 	c server: 'www.google.com:443'.
+ 	self assert: 'www.google.com' equals: c serverName.
+ 	self assert: 'www.google.com' equals: c serverUrlName.
+ 	self assert: 443 equals: c serverPort.
+ 	
+ 	c server: '127.0.0.1'.
+ 	self assert: '127.0.0.1' equals: c serverName.
+ 	self assert: '127.0.0.1' equals: c serverUrlName.
+ 	self assert: 80 equals: c serverPort.
+ 
+ 	c server: '127.0.0.1:443'.
+ 	self assert: '127.0.0.1' equals: c serverName.
+ 	self assert: '127.0.0.1' equals: c serverUrlName.
+ 	self assert: 443 equals: c serverPort.
+ 
+ 
+ 	c server: '[2a00:1450:400e:800::2004]'.
+ 	self assert: '2a00:1450:400e:800::2004' equals: c serverName.
+ 	self assert: '[2a00:1450:400e:800::2004]' equals: c serverUrlName.
+ 	self assert: 80 equals: c serverPort.
+ 
+ 	c server: '[2a00:1450:400e:800::2004]:443'.
+ 	self assert: '2a00:1450:400e:800::2004' equals: c serverName.
+ 	self assert: '[2a00:1450:400e:800::2004]' equals: c serverUrlName.
+ 	self assert: 443 equals: c serverPort.!