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 := 'joe at lama.com, joe2 at lama.com joe3 at lama.com joe4 , Not an Address <joe5 at address>, joe.(annoying (nested) comment)literal@[1.2.3.4], "an annoying" group : joe1 at groupie, joe2 at groupie, "Joey" joe3 at groupy, "joe6"."joe8"@group.com;,  Lex''s email account <lex>, foo+bar at baz.com'.
- 	testString := 'joe at lama.com, joe2 at lama.com joe3 at lama.com joe4 , Not an Address <joe5 at address>, joe.(annoying (nested) comment)literal@[1.2.3.4], "an annoying" group : joe1 at groupie, joe2 at groupie, "Joey" joe3 at groupy, "joe6"."joe8"@group.com;,  Lex''s email account <lex>'.
  
+ correctAnswer := #('joe at lama.com' 'joe2 at lama.com' 'joe3 at lama.com' 'joe4' 'joe5 at address' 'joe.literal@[1.2.3.4]' 'joe1 at groupie' 'joe2 at groupie' '"Joey"' 'joe3 at groupy' '"joe6"."joe8"@group.com' 'lex' 'foo+bar at baz.com') asOrderedCollection.
- correctAnswer := #('joe at lama.com' 'joe2 at lama.com' 'joe3 at lama.com' 'joe4' 'joe5 at address' 'joe.literal@[1.2.3.4]' 'joe1 at groupie' 'joe2 at groupie' '"Joey"' 'joe3 at groupy' '"joe6"."joe8"@group.com' 'lex') asOrderedCollection.
  
  	self assert: ((MailAddressParser addressesIn: testString) =  correctAnswer).!