The Trunk: WebClient-Tests-topa.53.mcz

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.!