The Trunk: NetworkTests-fbs.36.mcz

Frank Shearar uploaded a new version of NetworkTests to project The Trunk:
http://source.squeak.org/trunk/NetworkTests-fbs.36.mcz

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

Name: NetworkTests-fbs.36
Author: fbs
Time: 3 May 2013, 9:40:46.384 am
UUID: 4ae3eef3-36be-4f65-9b78-b2edf732b7e6
Ancestors: NetworkTests-dtl.35

Verify that we accept an email address with a '+' in it.

=============== Diff against NetworkTests-dtl.35 ===============

Item was changed:
  SystemOrganization addCategory: #'NetworkTests-Kernel'!
  SystemOrganization addCategory: #'NetworkTests-Protocols'!
  SystemOrganization addCategory: #'NetworkTests-RFC822'!
+ SystemOrganization addCategory: #'NetworkTests-URI'!
  SystemOrganization addCategory: #'NetworkTests-UUID'!
  SystemOrganization addCategory: #'NetworkTests-Url'!
- SystemOrganization addCategory: #'NetworkTests-URI'!

Item was changed:
  ----- Method: MailAddressParserTest>>testAddressesIn (in category 'tests') -----
  testAddressesIn
 
  | testString correctAnswer |
 
+ testString := '[hidden email], [hidden email] [hidden email] joe4 , Not an Address <joe5@address>, joe.(annoying (nested) comment)literal@[1.2.3.4], "an annoying" group : joe1@groupie, joe2@groupie, "Joey" joe3@groupy, "joe6"."joe8"@group.com;,  Lex''s email account <lex>, [hidden email]'.
- testString := '[hidden email], [hidden email] [hidden email] joe4 , Not an Address <joe5@address>, joe.(annoying (nested) comment)literal@[1.2.3.4], "an annoying" group : joe1@groupie, joe2@groupie, "Joey" joe3@groupy, "joe6"."joe8"@group.com;,  Lex''s email account <lex>'.
 
+ correctAnswer := #('[hidden email]' '[hidden email]' '[hidden email]' 'joe4' 'joe5@address' 'joe.literal@[1.2.3.4]' 'joe1@groupie' 'joe2@groupie' '"Joey"' 'joe3@groupy' '"joe6"."joe8"@group.com' 'lex' '[hidden email]') asOrderedCollection.
- correctAnswer := #('[hidden email]' '[hidden email]' '[hidden email]' 'joe4' 'joe5@address' 'joe.literal@[1.2.3.4]' 'joe1@groupie' 'joe2@groupie' '"Joey"' 'joe3@groupy' '"joe6"."joe8"@group.com' 'lex') asOrderedCollection.
 
  self assert: ((MailAddressParser addressesIn: testString) =  correctAnswer).!