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