April 2, 2010
8:36 p.m.
Similarly printOn: of URIAuthority looks borken to me I should get userinfo@host and not @userinfohost So I fixed that... testUserInfo "self debug: #testUserInfo" | uri uriString | "[scheme:][//authority][path][?query][#fragment] where authority can be [user-info@]host[:port]" uriString := 'scheme://userinfo@host/'. uri := URI fromString: uriString. self assert: (uri asString = uriString). self assert: (uri authority userInfo = 'userinfo').