Bernhard Pieber uploaded a new version of NetworkTests to project The Trunk:
http://source.squeak.org/trunk/NetworkTests-bp.42.mcz==================== Summary ====================
Name: NetworkTests-bp.42
Author: bp
Time: 3 July 2016, 11:49:15.520702 am
UUID: cd20a935-7da4-42d5-ac67-a9c6a1ef847b
Ancestors: NetworkTests-eem.41
test for e-mail address with ampersand
=============== Diff against NetworkTests-eem.41 ===============
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] romeo&
[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>,
[hidden email]'.
+ 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]' 'romeo&
[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' '
[hidden email]') asOrderedCollection.
self assert: ((MailAddressParser addressesIn: testString) = correctAnswer).!
Locked
