root/lang/perl/Email-Address-Loose/trunk/t/regression-email-address/tests.t @ 14689

Revision 14689, 35.9 kB (checked in by tomi-ru, 5 years ago)

Email::Address::Loose

Line 
1use Test::More;
2use strict;
3$^W = 1;
4
5# This is a corpus of addresses to test.  Each element of @list is a pair of
6# input and expected output.  The input is a string that will be given to
7# Email::Address::Loose, with "-- ATAT --" replaced with the encircled a.
8#
9# The output is a list of formatted addresses we expect to extract from the
10# string.
11
12my @list = (
13  [
14    '',
15    []
16  ],
17  [
18    '"\'\'\'advocacy-- ATAT --p.example.org \' \' \'" <advocacy-- ATAT --p.example.org>',
19    [
20      [
21        '"\'\'\'advocacy-- ATAT --p.example.org \' \' \'"',
22        'advocacy-- ATAT --p.example.org',
23        undef
24      ]
25    ]
26  ],
27  [
28    '"\'\'advocacy-- ATAT --p.example.org \' \'" <advocacy-- ATAT --p.example.org>',
29    [
30      [
31        '"\'\'advocacy-- ATAT --p.example.org \' \'"',
32        'advocacy-- ATAT --p.example.org',
33        undef
34      ]
35    ]
36  ],
37  [
38    '"\'. Jerry a\'" <JerryPanshen-- ATAT --aol.example.aero>',
39    [
40      [
41        '"\'. Jerry a\'"',
42        'JerryPanshen-- ATAT --aol.example.aero',
43        undef
44      ]
45    ]
46  ],
47  [
48    '"\'Adam Turoff\'" <adam.turoff-- ATAT --s.example.net>, advocacy-- ATAT --p.example.org',
49    [
50      [
51        '"\'Adam Turoff\'"',
52        'adam.turoff-- ATAT --s.example.net',
53        undef
54      ],
55      [
56        undef,
57        'advocacy-- ATAT --p.example.org',
58        undef
59      ]
60    ]
61  ],
62  [
63    '"\'Andy Lester\'" <andy-- ATAT --pet.example.com>, "\'Gabor Szabo\'" <gabor-- ATAT --trt.example.biz>, advocacy-- ATAT --p.example.org',
64    [
65      [
66        '"\'Andy Lester\'"',
67        'andy-- ATAT --pet.example.com',
68        undef
69      ],
70      [
71        '"\'Gabor Szabo\'"',
72        'gabor-- ATAT --trt.example.biz',
73        undef
74      ],
75      [
76        undef,
77        'advocacy-- ATAT --p.example.org',
78        undef
79      ]
80    ]
81  ],
82  [
83    '"\'Ask Bjoern Hansen\'" <ask-- ATAT --p.example.org>, <advocacy-- ATAT --p.example.org>',
84    [
85      [
86        '"\'Ask Bjoern Hansen\'"',
87        'ask-- ATAT --p.example.org',
88        undef
89      ],
90      [
91        undef,
92        'advocacy-- ATAT --p.example.org',
93        undef
94      ]
95    ]
96  ],
97  [
98    '"\'Chris Nandor\'" <pudge-- ATAT --x.example.com> , "\'David E. Wheeler\'" <David-- ATAT --whl.example.net>',
99    [
100      [
101        '"\'Chris Nandor\'"',
102        'pudge-- ATAT --x.example.com',
103        undef
104      ],
105      [
106        '"\'David E. Wheeler\'"',
107        'David-- ATAT --whl.example.net',
108        undef
109      ]
110    ]
111  ],
112  [
113    '"\'Chris Nandor\'" <pudge-- ATAT --x.example.com> , "\'Elaine -HFB- Ashton\'" <elaine-- ATAT --chaos.example.edu>',
114    [
115      [
116        '"\'Chris Nandor\'"',
117        'pudge-- ATAT --x.example.com',
118        undef
119      ],
120      [
121        '"\'Elaine -HFB- Ashton\'"',
122        'elaine-- ATAT --chaos.example.edu',
123        undef
124      ]
125    ]
126  ],
127  [
128    '"\'Chris Nandor\'" <pudge-- ATAT --x.example.com> , "\'Jon Orwant\'" <orwant-- ATAT --media.mit.edu>, <chip-- ATAT --valinux.com> , <tidbit-- ATAT --sri.net>, <advocacy-- ATAT --p.example.org>',
129    [
130      [
131        '"\'Chris Nandor\'"',
132        'pudge-- ATAT --x.example.com',
133        undef
134      ],
135      [
136        '"\'Jon Orwant\'"',
137        'orwant-- ATAT --media.mit.edu',
138        undef
139      ],
140      [
141        undef,
142        'chip-- ATAT --valinux.com',
143        undef
144      ],
145      [
146        undef,
147        'tidbit-- ATAT --sri.net',
148        undef
149      ],
150      [
151        undef,
152        'advocacy-- ATAT --p.example.org',
153        undef
154      ]
155    ]
156  ],
157  [
158    '"\'Chris Nandor\'" <pudge-- ATAT --x.example.com>, <advocacy-- ATAT --p.example.org>, <perl5-porters-- ATAT --p.example.org>',
159    [
160      [
161        '"\'Chris Nandor\'"',
162        'pudge-- ATAT --x.example.com',
163        undef
164      ],
165      [
166        undef,
167        'advocacy-- ATAT --p.example.org',
168        undef
169      ],
170      [
171        undef,
172        'perl5-porters-- ATAT --p.example.org',
173        undef
174      ]
175    ]
176  ],
177  [
178    '"\'Chris Nandor\'" <pudge-- ATAT --x.example.com>, advocacy-- ATAT --p.example.org',
179    [
180      [
181        '"\'Chris Nandor\'"',
182        'pudge-- ATAT --x.example.com',
183        undef
184      ],
185      [
186        undef,
187        'advocacy-- ATAT --p.example.org',
188        undef
189      ]
190    ]
191  ],
192  [
193    '"\'Chris Nandor\'" <pudge-- ATAT --x.example.com>, advocacy-- ATAT --p.example.org, perl5-porters-- ATAT --p.example.org',
194    [
195      [
196        '"\'Chris Nandor\'"',
197        'pudge-- ATAT --x.example.com',
198        undef
199      ],
200      [
201        undef,
202        'advocacy-- ATAT --p.example.org',
203        undef
204      ],
205      [
206        undef,
207        'perl5-porters-- ATAT --p.example.org',
208        undef
209      ]
210    ]
211  ],
212  [
213    '"\'David H. Adler \'" <dha-- ATAT --panix.com>, "\'advocacy-- ATAT --p.example.org \'" <advocacy-- ATAT --p.example.org>',
214    [
215      [
216        '"\'David H. Adler \'"',
217        'dha-- ATAT --panix.com',
218        undef
219      ],
220      [
221        '"\'advocacy-- ATAT --p.example.org \'"',
222        'advocacy-- ATAT --p.example.org',
223        undef
224      ]
225    ]
226  ],
227  [
228    '"\'Doucette, Bob\'" <BDoucette-- ATAT --tesent.com>, \'Rich Bowen\' <rbowen-- ATAT --rc.example.com>',
229    [
230      [
231        '"\'Doucette, Bob\'"',
232        'BDoucette-- ATAT --tesent.com',
233        undef
234      ],
235      [
236        '\'Rich Bowen\'',
237        'rbowen-- ATAT --rc.example.com',
238        undef
239      ]
240    ]
241  ],
242  [
243    '"\'Elaine -HFB- Ashton \'" <elaine-- ATAT --chaos.example.edu>, "Turoff, Adam" <adam.turoff-- ATAT --s.example.net>',
244    [
245      [
246        '"\'Elaine -HFB- Ashton \'"',
247        'elaine-- ATAT --chaos.example.edu',
248        undef
249      ],
250      [
251        '"Turoff, Adam"',
252        'adam.turoff-- ATAT --s.example.net',
253        undef
254      ]
255    ]
256  ],
257  [
258    '"\'Elaine -HFB- Ashton\'" <elaine-- ATAT --chaos.example.edu>',
259    [
260      [
261        '"\'Elaine -HFB- Ashton\'"',
262        'elaine-- ATAT --chaos.example.edu',
263        undef
264      ]
265    ]
266  ],
267  [
268    '"\'Elaine -HFB- Ashton\'" <elaine-- ATAT --chaos.example.edu> , "\'Larry Wall\'" <larry-- ATAT --wall.org>',
269    [
270      [
271        '"\'Elaine -HFB- Ashton\'"',
272        'elaine-- ATAT --chaos.example.edu',
273        undef
274      ],
275      [
276        '"\'Larry Wall\'"',
277        'larry-- ATAT --wall.org',
278        undef
279      ]
280    ]
281  ],
282  [
283    '"\'Elaine -HFB- Ashton\'" <elaine-- ATAT --chaos.example.edu> , "\'Larry Wall\'" <larry-- ATAT --wall.org> , "\'Jon Orwant\'" <orwant-- ATAT --media.mit.edu>, <chip-- ATAT --valinux.com> , <tidbit-- ATAT --sri.net>, <advocacy-- ATAT --p.example.org>',
284    [
285      [
286        '"\'Elaine -HFB- Ashton\'"',
287        'elaine-- ATAT --chaos.example.edu',
288        undef
289      ],
290      [
291        '"\'Larry Wall\'"',
292        'larry-- ATAT --wall.org',
293        undef
294      ],
295      [
296        '"\'Jon Orwant\'"',
297        'orwant-- ATAT --media.mit.edu',
298        undef
299      ],
300      [
301        undef,
302        'chip-- ATAT --valinux.com',
303        undef
304      ],
305      [
306        undef,
307        'tidbit-- ATAT --sri.net',
308        undef
309      ],
310      [
311        undef,
312        'advocacy-- ATAT --p.example.org',
313        undef
314      ]
315    ]
316  ],
317  [
318    '"\'Elaine -HFB- Ashton\'" <elaine-- ATAT --chaos.example.edu>, "\'Larry Wall\'" <larry-- ATAT --wall.org>, "\'Jon Orwant\'" <orwant-- ATAT --media.mit.edu>, <chip-- ATAT --valinux.com>, <tidbit-- ATAT --sri.net>, <advocacy-- ATAT --p.example.org>',
319    [
320      [
321        '"\'Elaine -HFB- Ashton\'"',
322        'elaine-- ATAT --chaos.example.edu',
323        undef
324      ],
325      [
326        '"\'Larry Wall\'"',
327        'larry-- ATAT --wall.org',
328        undef
329      ],
330      [
331        '"\'Jon Orwant\'"',
332        'orwant-- ATAT --media.mit.edu',
333        undef
334      ],
335      [
336        undef,
337        'chip-- ATAT --valinux.com',
338        undef
339      ],
340      [
341        undef,
342        'tidbit-- ATAT --sri.net',
343        undef
344      ],
345      [
346        undef,
347        'advocacy-- ATAT --p.example.org',
348        undef
349      ]
350    ]
351  ],
352  [
353    '"\'Elaine -HFB- Ashton\'" <elaine-- ATAT --chaos.example.edu>, <advocacy-- ATAT --p.example.org>',
354    [
355      [
356        '"\'Elaine -HFB- Ashton\'"',
357        'elaine-- ATAT --chaos.example.edu',
358        undef
359      ],
360      [
361        undef,
362        'advocacy-- ATAT --p.example.org',
363        undef
364      ]
365    ]
366  ],
367  [
368    '"\'John Porter\'" <jdporter-- ATAT --min.net>, "\'advocacy-- ATAT --p.example.org\'" <advocacy-- ATAT --p.example.org>',
369    [
370      [
371        '"\'John Porter\'"',
372        'jdporter-- ATAT --min.net',
373        undef
374      ],
375      [
376        '"\'advocacy-- ATAT --p.example.org\'"',
377        'advocacy-- ATAT --p.example.org',
378        undef
379      ]
380    ]
381  ],
382  [
383    '"\'Larry Wall\'" <larry-- ATAT --wall.org> , "\'Jon Orwant\'" <orwant-- ATAT --media.mit.edu>, <chip-- ATAT --valinux.com> , <tidbit-- ATAT --sri.net>, <advocacy-- ATAT --p.example.org>',
384    [
385      [
386        '"\'Larry Wall\'"',
387        'larry-- ATAT --wall.org',
388        undef
389      ],
390      [
391        '"\'Jon Orwant\'"',
392        'orwant-- ATAT --media.mit.edu',
393        undef
394      ],
395      [
396        undef,
397        'chip-- ATAT --valinux.com',
398        undef
399      ],
400      [
401        undef,
402        'tidbit-- ATAT --sri.net',
403        undef
404      ],
405      [
406        undef,
407        'advocacy-- ATAT --p.example.org',
408        undef
409      ]
410    ]
411  ],
412  [
413    '"\'Madeline Schnapp \'" <madeline-- ATAT --oreilly.com>, "\'advocacy-- ATAT --p.example.org \'" <advocacy-- ATAT --p.example.org>',
414    [
415      [
416        '"\'Madeline Schnapp \'"',
417        'madeline-- ATAT --oreilly.com',
418        undef
419      ],
420      [
421        '"\'advocacy-- ATAT --p.example.org \'"',
422        'advocacy-- ATAT --p.example.org',
423        undef
424      ]
425    ]
426  ],
427  [
428    '"\'Mark Mielke\'" <markm-- ATAT --nortelnetworks.com>',
429    [
430      [
431        '"\'Mark Mielke\'"',
432        'markm-- ATAT --nortelnetworks.com',
433        undef
434      ]
435    ]
436  ],
437  [
438    '"\'Pamela Carter\'" <pcarter150-- ATAT --comcast.net>, <advocacy-- ATAT --p.example.org>',
439    [
440      [
441        '"\'Pamela Carter\'"',
442        'pcarter150-- ATAT --comcast.net',
443        undef
444      ],
445      [
446        undef,
447        'advocacy-- ATAT --p.example.org',
448        undef
449      ]
450    ]
451  ],
452  [
453    '"\'Shlomi Fish\'" <shlomif-- ATAT --vipe.technion.ac.il>',
454    [
455      [
456        '"\'Shlomi Fish\'"',
457        'shlomif-- ATAT --vipe.technion.ac.il',
458        undef
459      ]
460    ]
461  ],
462  [
463    '"\'Steve Lane\'" <sml-- ATAT --zfx.com>, "\'Chris Nandor\'" <pudge-- ATAT --x.example.com>, advocacy-- ATAT --p.example.org, perl5-porters-- ATAT --p.example.org',
464    [
465      [
466        '"\'Steve Lane\'"',
467        'sml-- ATAT --zfx.com',
468        undef
469      ],
470      [
471        '"\'Chris Nandor\'"',
472        'pudge-- ATAT --x.example.com',
473        undef
474      ],
475      [
476        undef,
477        'advocacy-- ATAT --p.example.org',
478        undef
479      ],
480      [
481        undef,
482        'perl5-porters-- ATAT --p.example.org',
483        undef
484      ]
485    ]
486  ],
487  [
488    '"\'Tom Christiansen\'" <tchrist-- ATAT --chthon.perl.com>, Horsley Tom <Tom.Horsley-- ATAT --ccur.com>, "\'Steve Lane\'" <sml-- ATAT --zfx.com>, advocacy-- ATAT --p.example.org, perl5-porters-- ATAT --p.example.org',
489    [
490      [
491        '"\'Tom Christiansen\'"',
492        'tchrist-- ATAT --chthon.perl.com',
493        undef
494      ],
495      [
496        'Horsley Tom',
497        'Tom.Horsley-- ATAT --ccur.com',
498        undef
499      ],
500      [
501        '"\'Steve Lane\'"',
502        'sml-- ATAT --zfx.com',
503        undef
504      ],
505      [
506        undef,
507        'advocacy-- ATAT --p.example.org',
508        undef
509      ],
510      [
511        undef,
512        'perl5-porters-- ATAT --p.example.org',
513        undef
514      ]
515    ]
516  ],
517  [
518    '"\'abigail-- ATAT --foad.example.biz\'" <abigail-- ATAT --foad.example.biz>,        "Michael R. Wolf"<MichaelRunningWolf-- ATAT --att.net>',
519    [
520      [
521        '"\'abigail-- ATAT --foad.example.biz\'"',
522        'abigail-- ATAT --foad.example.biz',
523        undef
524      ],
525      [
526        '"Michael R. Wolf"',
527        'MichaelRunningWolf-- ATAT --att.net',
528        undef
529      ]
530    ]
531  ],
532  [
533    '"\'abigail-- ATAT --foad.example.biz\'" <abigail-- ATAT --foad.example.biz>, Michael G Schwern <schwern-- ATAT --x.example.com>',
534    [
535      [
536        '"\'abigail-- ATAT --foad.example.biz\'"',
537        'abigail-- ATAT --foad.example.biz',
538        undef
539      ],
540      [
541        'Michael G Schwern',
542        'schwern-- ATAT --x.example.com',
543        undef
544      ]
545    ]
546  ],
547  [
548    '"\'abigail-- ATAT --foad.example.biz\'" <abigail-- ATAT --foad.example.biz>, Michael G Schwern <schwern-- ATAT --x.example.com>, Nicholas Clark <nick-- ATAT --c.example.org>, Piers Cawley <pdcawley-- ATAT --bofh.org.uk>, advocacy-- ATAT --p.example.org',
549    [
550      [
551        '"\'abigail-- ATAT --foad.example.biz\'"',
552        'abigail-- ATAT --foad.example.biz',
553        undef
554      ],
555      [
556        'Michael G Schwern',
557        'schwern-- ATAT --x.example.com',
558        undef
559      ],
560      [
561        'Nicholas Clark',
562        'nick-- ATAT --c.example.org',
563        undef
564      ],
565      [
566        'Piers Cawley',
567        'pdcawley-- ATAT --bofh.org.uk',
568        undef
569      ],
570      [
571        undef,
572        'advocacy-- ATAT --p.example.org',
573        undef
574      ]
575    ]
576  ],
577  [
578    '"\'advocacy-- ATAT --p.example.org \'" <advocacy-- ATAT --p.example.org>',
579    [
580      [
581        '"\'advocacy-- ATAT --p.example.org \'"',
582        'advocacy-- ATAT --p.example.org',
583        undef
584      ]
585    ]
586  ],
587  [
588    '"\'advocacy-- ATAT --p.example.org \'" <advocacy-- ATAT --p.example.org>, "Turoff, Adam" <adam.turoff-- ATAT --s.example.net>',
589    [
590      [
591        '"\'advocacy-- ATAT --p.example.org \'"',
592        'advocacy-- ATAT --p.example.org',
593        undef
594      ],
595      [
596        '"Turoff, Adam"',
597        'adam.turoff-- ATAT --s.example.net',
598        undef
599      ]
600    ]
601  ],
602  [
603    '"\'advocacy-- ATAT --p.example.org\'" <advocacy-- ATAT --p.example.org>',
604    [
605      [
606        '"\'advocacy-- ATAT --p.example.org\'"',
607        'advocacy-- ATAT --p.example.org',
608        undef
609      ]
610    ]
611  ],
612  [
613    '"\'bwarnock-- ATAT --capita.com\'" <bwarnock-- ATAT --capita.com>, advocacy-- ATAT --p.example.org',
614    [
615      [
616        '"\'bwarnock-- ATAT --capita.com\'"',
617        'bwarnock-- ATAT --capita.com',
618        undef
619      ],
620      [
621        undef,
622        'advocacy-- ATAT --p.example.org',
623        undef
624      ]
625    ]
626  ],
627  [
628    '"\'duff-- ATAT --x.example.com\'" <duff-- ATAT --x.example.com>',
629    [
630      [
631        '"\'duff-- ATAT --x.example.com\'"',
632        'duff-- ATAT --x.example.com',
633        undef
634      ]
635    ]
636  ],
637  [
638    '"\'london-list-- ATAT --happyfunball.pm.org\'" <london-list-- ATAT --happyfunball.pm.org>',
639    [
640      [
641        '"\'london-list-- ATAT --happyfunball.pm.org\'"',
642        'london-list-- ATAT --happyfunball.pm.org',
643        undef
644      ]
645    ]
646  ],
647  [
648    '"\'perl-hackers-- ATAT --stlouis.pm.org\'" <perl-hackers-- ATAT --stlouis.pm.org>',
649    [
650      [
651        '"\'perl-hackers-- ATAT --stlouis.pm.org\'"',
652        'perl-hackers-- ATAT --stlouis.pm.org',
653        undef
654      ]
655    ]
656  ],
657  [
658    '"\'perl-hackers-- ATAT --stlouis.pm.org\'" <perl-hackers-- ATAT --stlouis.pm.org>, advocacy-- ATAT --p.example.org, marsneedswomen-- ATAT --happyfunball.pm.org',
659    [
660      [
661        '"\'perl-hackers-- ATAT --stlouis.pm.org\'"',
662        'perl-hackers-- ATAT --stlouis.pm.org',
663        undef
664      ],
665      [
666        undef,
667        'advocacy-- ATAT --p.example.org',
668        undef
669      ],
670      [
671        undef,
672        'marsneedswomen-- ATAT --happyfunball.pm.org',
673        undef
674      ]
675    ]
676  ],
677  [
678    '"<advocacy-- ATAT --p.example.org>" <advocacy-- ATAT --p.example.org>',
679    [
680      [
681        'advocacy',
682        'advocacy-- ATAT --p.example.org',
683        undef
684      ]
685    ]
686  ],
687  [
688    '"Adam Turoff" <adam.turoff-- ATAT --s.example.net>, "Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>',
689    [
690      [
691        '"Adam Turoff"',
692        'adam.turoff-- ATAT --s.example.net',
693        undef
694      ],
695      [
696        '"Elaine -HFB- Ashton"',
697        'elaine-- ATAT --chaos.example.edu',
698        undef
699      ]
700    ]
701  ],
702  [
703    '"Adam Turoff" <adam.turoff-- ATAT --s.example.net>, "Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, "Brent Michalski" <brent-- ATAT --perlguy.net>, "Madeline Schnapp" <madeline-- ATAT --oreilly.com>, <advocacy-- ATAT --p.example.org>, <betsy-- ATAT --oreilly.com>',
704    [
705      [
706        '"Adam Turoff"',
707        'adam.turoff-- ATAT --s.example.net',
708        undef
709      ],
710      [
711        '"Elaine -HFB- Ashton"',
712        'elaine-- ATAT --chaos.example.edu',
713        undef
714      ],
715      [
716        '"Brent Michalski"',
717        'brent-- ATAT --perlguy.net',
718        undef
719      ],
720      [
721        '"Madeline Schnapp"',
722        'madeline-- ATAT --oreilly.com',
723        undef
724      ],
725      [
726        undef,
727        'advocacy-- ATAT --p.example.org',
728        undef
729      ],
730      [
731        undef,
732        'betsy-- ATAT --oreilly.com',
733        undef
734      ]
735    ]
736  ],
737  [
738    '"Adam Turoff" <adam.turoff-- ATAT --s.example.net>, "Paul Prescod" <paul-- ATAT --co.example.va>',
739    [
740      [
741        '"Adam Turoff"',
742        'adam.turoff-- ATAT --s.example.net',
743        undef
744      ],
745      [
746        '"Paul Prescod"',
747        'paul-- ATAT --co.example.va',
748        undef
749      ]
750    ]
751  ],
752  [
753    '"Alan Olsen" <alan-- ATAT --svr.example.museum>, "Rich Bowen" <rbowen-- ATAT --rc.example.com>',
754    [
755      [
756        '"Alan Olsen"',
757        'alan-- ATAT --svr.example.museum',
758        undef
759      ],
760      [
761        '"Rich Bowen"',
762        'rbowen-- ATAT --rc.example.com',
763        undef
764      ]
765    ]
766  ],
767  [
768    '"Andreas J. Koenig" <andreas.koenig-- ATAT --example.net>',
769    [
770      [
771        '"Andreas J. Koenig"',
772        'andreas.koenig-- ATAT --example.net',
773        undef
774      ]
775    ]
776  ],
777  [
778    '"Andreas J. Koenig" <andreas.koenig-- ATAT --example.net>, advocacy-- ATAT --p.example.org',
779    [
780      [
781        '"Andreas J. Koenig"',
782        'andreas.koenig-- ATAT --example.net',
783        undef
784      ],
785      [
786        undef,
787        'advocacy-- ATAT --p.example.org',
788        undef
789      ]
790    ]
791  ],
792  [
793    '"Andreas J. Koenig" <andreas.koenig-- ATAT --example.net>, advocacy-- ATAT --p.example.org, regn-- ATAT --ExamPle.com',
794    [
795      [
796        '"Andreas J. Koenig"',
797        'andreas.koenig-- ATAT --example.net',
798        undef
799      ],
800      [
801        undef,
802        'advocacy-- ATAT --p.example.org',
803        undef
804      ],
805      [
806        undef,
807        'regn-- ATAT --ExamPle.com',
808        undef
809      ]
810    ]
811  ],
812  [
813    '"Andy Wardley" <abw-- ATAT --cre.canon.co.uk>',
814    [
815      [
816        '"Andy Wardley"',
817        'abw-- ATAT --cre.canon.co.uk',
818        undef
819      ]
820    ]
821  ],
822  [
823    '"Bas A. Schulte" <bschulte-- ATAT --zeelandnet.nl>',
824    [
825      [
826        '"Bas A. Schulte"',
827        'bschulte-- ATAT --zeelandnet.nl',
828        undef
829      ]
830    ]
831  ],
832  [
833    '"Bas A.Schulte" <bschulte-- ATAT --zeelandnet.nl>',
834    [
835      [
836        '"Bas A.Schulte"',
837        'bschulte-- ATAT --zeelandnet.nl',
838        undef
839      ]
840    ]
841  ],
842  [
843    '"Betsy Waliszewski" <betsy-- ATAT --oreilly.com>, "perl-advocacy" <advocacy-- ATAT --p.example.org>',
844    [
845      [
846        '"Betsy Waliszewski"',
847        'betsy-- ATAT --oreilly.com',
848        undef
849      ],
850      [
851        '"perl-advocacy"',
852        'advocacy-- ATAT --p.example.org',
853        undef
854      ]
855    ]
856  ],
857  [
858    '"Bradley M. Kuhn" <bkuhn-- ATAT --ebb.org>',
859    [
860      [
861        '"Bradley M. Kuhn"',
862        'bkuhn-- ATAT --ebb.org',
863        undef
864      ]
865    ]
866  ],
867  [
868    '"Brammer, Phil" <PBRA01-- ATAT --CONAGRAFROZEN.COM>',
869    [
870      [
871        '"Brammer, Phil"',
872        'PBRA01-- ATAT --CONAGRAFROZEN.COM',
873        undef
874      ]
875    ]
876  ],
877  [
878    '"Brent Michalski" <brent-- ATAT --perlguy.net>, "Madeline Schnapp" <madeline-- ATAT --oreilly.com>, <advocacy-- ATAT --p.example.org>, <betsy-- ATAT --oreilly.com>',
879    [
880      [
881        '"Brent Michalski"',
882        'brent-- ATAT --perlguy.net',
883        undef
884      ],
885      [
886        '"Madeline Schnapp"',
887        'madeline-- ATAT --oreilly.com',
888        undef
889      ],
890      [
891        undef,
892        'advocacy-- ATAT --p.example.org',
893        undef
894      ],
895      [
896        undef,
897        'betsy-- ATAT --oreilly.com',
898        undef
899      ]
900    ]
901  ],
902  [
903    '"Brian Wilson" <bwilson-- ATAT --songline.com>',
904    [
905      [
906        '"Brian Wilson"',
907        'bwilson-- ATAT --songline.com',
908        undef
909      ]
910    ]
911  ],
912  [
913    '"Calvin Lee" <bodyshock911-- ATAT --hotmail.com>, <advocacy-- ATAT --p.example.org>',
914    [
915      [
916        '"Calvin Lee"',
917        'bodyshock911-- ATAT --hotmail.com',
918        undef
919      ],
920      [
921        undef,
922        'advocacy-- ATAT --p.example.org',
923        undef
924      ]
925    ]
926  ],
927  [
928    '"Calvin Lee" <bodyshock911-- ATAT --hotmail.com>, advocacy-- ATAT --p.example.org',
929    [
930      [
931        '"Calvin Lee"',
932        'bodyshock911-- ATAT --hotmail.com',
933        undef
934      ],
935      [
936        undef,
937        'advocacy-- ATAT --p.example.org',
938        undef
939      ]
940    ]
941  ],
942  [
943    '"Chip Salzenberg" <chip-- ATAT --valinux.com>',
944    [
945      [
946        '"Chip Salzenberg"',
947        'chip-- ATAT --valinux.com',
948        undef
949      ]
950    ]
951  ],
952  [
953    '"Chip Salzenberg" <chip-- ATAT --valinux.com>, "Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>',
954    [
955      [
956        '"Chip Salzenberg"',
957        'chip-- ATAT --valinux.com',
958        undef
959      ],
960      [
961        '"Elaine -HFB- Ashton"',
962        'elaine-- ATAT --chaos.example.edu',
963        undef
964      ]
965    ]
966  ],
967  [
968    '"Chris Devers" <cdevers-- ATAT --boston.com>, "Uri Guttman" <uri-- ATAT --stemsystems.com>',
969    [
970      [
971        '"Chris Devers"',
972        'cdevers-- ATAT --boston.com',
973        undef
974      ],
975      [
976        '"Uri Guttman"',
977        'uri-- ATAT --stemsystems.com',
978        undef
979      ]
980    ]
981  ],
982  [
983    '"Chris Nandor" <pudge-- ATAT --x.example.com>',
984    [
985      [
986        '"Chris Nandor"',
987        'pudge-- ATAT --x.example.com',
988        undef
989      ]
990    ]
991  ],
992  [
993    '"Chris Nandor" <pudge-- ATAT --x.example.com>, "Nathan Torkington" <gnat-- ATAT --frii.com>, "Peter Scott" <Peter-- ATAT --PSDT.com>',
994    [
995      [
996        '"Chris Nandor"',
997        'pudge-- ATAT --x.example.com',
998        undef
999      ],
1000      [
1001        '"Nathan Torkington"',
1002        'gnat-- ATAT --frii.com',
1003        undef
1004      ],
1005      [
1006        '"Peter Scott"',
1007        'Peter-- ATAT --PSDT.com',
1008        undef
1009      ]
1010    ]
1011  ],
1012  [
1013    '"Chris Nandor" <pudge-- ATAT --x.example.com>, "Nathan Torkington" <gnat-- ATAT --frii.com>, <advocacy-- ATAT --p.example.org>, "Peter Scott" <Peter-- ATAT --PSDT.com>',
1014    [
1015      [
1016        '"Chris Nandor"',
1017        'pudge-- ATAT --x.example.com',
1018        undef
1019      ],
1020      [
1021        '"Nathan Torkington"',
1022        'gnat-- ATAT --frii.com',
1023        undef
1024      ],
1025      [
1026        undef,
1027        'advocacy-- ATAT --p.example.org',
1028        undef
1029      ],
1030      [
1031        '"Peter Scott"',
1032        'Peter-- ATAT --PSDT.com',
1033        undef
1034      ]
1035    ]
1036  ],
1037  [
1038    '"Clinton A. Pierce" <clintp-- ATAT --geeksalad.org>',
1039    [
1040      [
1041        '"Clinton A. Pierce"',
1042        'clintp-- ATAT --geeksalad.org',
1043        undef
1044      ]
1045    ]
1046  ],
1047  [
1048    '"Clinton A. Pierce" <clintp-- ATAT --geeksalad.org>, madeline-- ATAT --oreilly.com, pudge-- ATAT --x.example.com, advocacy-- ATAT --p.example.org',
1049    [
1050      [
1051        '"Clinton A. Pierce"',
1052        'clintp-- ATAT --geeksalad.org',
1053        undef
1054      ],
1055      [
1056        undef,
1057        'madeline-- ATAT --oreilly.com',
1058        undef
1059      ],
1060      [
1061        undef,
1062        'pudge-- ATAT --x.example.com',
1063        undef
1064      ],
1065      [
1066        undef,
1067        'advocacy-- ATAT --p.example.org',
1068        undef
1069      ]
1070    ]
1071  ],
1072  [
1073    '"Curtis Poe" <cp-- ATAT --onsitetech.com>, <advocacy-- ATAT --p.example.org>',
1074    [
1075      [
1076        '"Curtis Poe"',
1077        'cp-- ATAT --onsitetech.com',
1078        undef
1079      ],
1080      [
1081        undef,
1082        'advocacy-- ATAT --p.example.org',
1083        undef
1084      ]
1085    ]
1086  ],
1087  [
1088    '"Curtis Poe" <cp-- ATAT --onsitetech.com>, advocacy-- ATAT --p.example.org',
1089    [
1090      [
1091        '"Curtis Poe"',
1092        'cp-- ATAT --onsitetech.com',
1093        undef
1094      ],
1095      [
1096        undef,
1097        'advocacy-- ATAT --p.example.org',
1098        undef
1099      ]
1100    ]
1101  ],
1102  [
1103    '"Dave Cross" <dave-- ATAT --dave.org.uk>',
1104    [
1105      [
1106        '"Dave Cross"',
1107        'dave-- ATAT --dave.org.uk',
1108        undef
1109      ]
1110    ]
1111  ],
1112  [
1113    '"David E. Wheeler" <David-- ATAT --Wheeler.net>',
1114    [
1115      [
1116        '"David E. Wheeler"',
1117        'David-- ATAT --Wheeler.net',
1118        undef
1119      ]
1120    ]
1121  ],
1122  [
1123    '"David E. Wheeler" <David-- ATAT --Wheeler.net>, "\'Larry Wall\'" <larry-- ATAT --wall.org>, "\'Jon Orwant\'" <orwant-- ATAT --media.mit.edu>, chip-- ATAT --valinux.com, tidbit-- ATAT --sri.net, advocacy-- ATAT --p.example.org',
1124    [
1125      [
1126        '"David E. Wheeler"',
1127        'David-- ATAT --Wheeler.net',
1128        undef
1129      ],
1130      [
1131        '"\'Larry Wall\'"',
1132        'larry-- ATAT --wall.org',
1133        undef
1134      ],
1135      [
1136        '"\'Jon Orwant\'"',
1137        'orwant-- ATAT --media.mit.edu',
1138        undef
1139      ],
1140      [
1141        undef,
1142        'chip-- ATAT --valinux.com',
1143        undef
1144      ],
1145      [
1146        undef,
1147        'tidbit-- ATAT --sri.net',
1148        undef
1149      ],
1150      [
1151        undef,
1152        'advocacy-- ATAT --p.example.org',
1153        undef
1154      ]
1155    ]
1156  ],
1157  [
1158    '"David E. Wheeler" <David-- ATAT --Wheeler.net>, \'Elaine -HFB- Ashton\' <elaine-- ATAT --chaos.example.edu>, \'Larry Wall\' <larry-- ATAT --wall.org>, \'Jon Orwant\' <orwant-- ATAT --media.mit.edu>, tidbit-- ATAT --sri.net, advocacy-- ATAT --p.example.org',
1159    [
1160      [
1161        '"David E. Wheeler"',
1162        'David-- ATAT --Wheeler.net',
1163        undef
1164      ],
1165      [
1166        '\'Elaine -HFB- Ashton\'',
1167        'elaine-- ATAT --chaos.example.edu',
1168        undef
1169      ],
1170      [
1171        '\'Larry Wall\'',
1172        'larry-- ATAT --wall.org',
1173        undef
1174      ],
1175      [
1176        '\'Jon Orwant\'',
1177        'orwant-- ATAT --media.mit.edu',
1178        undef
1179      ],
1180      [
1181        undef,
1182        'tidbit-- ATAT --sri.net',
1183        undef
1184      ],
1185      [
1186        undef,
1187        'advocacy-- ATAT --p.example.org',
1188        undef
1189      ]
1190    ]
1191  ],
1192  [
1193    '"David Grove" <pete-- ATAT --petes-place.com>',
1194    [
1195      [
1196        '"David Grove"',
1197        'pete-- ATAT --petes-place.com',
1198        undef
1199      ]
1200    ]
1201  ],
1202  [
1203    '"David Grove" <pete-- ATAT --petes-place.com>, <advocacy-- ATAT --p.example.org>',
1204    [
1205      [
1206        '"David Grove"',
1207        'pete-- ATAT --petes-place.com',
1208        undef
1209      ],
1210      [
1211        undef,
1212        'advocacy-- ATAT --p.example.org',
1213        undef
1214      ]
1215    ]
1216  ],
1217  [
1218    '"David H. Adler" <dha-- ATAT --panix.com>',
1219    [
1220      [
1221        '"David H. Adler"',
1222        'dha-- ATAT --panix.com',
1223        undef
1224      ]
1225    ]
1226  ],
1227  [
1228    '"David H. Adler" <dha-- ATAT --panix.com>, <advocacy-- ATAT --p.example.org>, <simon-- ATAT --brecon.co.uk>',
1229    [
1230      [
1231        '"David H. Adler"',
1232        'dha-- ATAT --panix.com',
1233        undef
1234      ],
1235      [
1236        undef,
1237        'advocacy-- ATAT --p.example.org',
1238        undef
1239      ],
1240      [
1241        undef,
1242        'simon-- ATAT --brecon.co.uk',
1243        undef
1244      ]
1245    ]
1246  ],
1247  [
1248    '"David H. Adler" <dha-- ATAT --panix.com>, advocacy-- ATAT --p.example.org',
1249    [
1250      [
1251        '"David H. Adler"',
1252        'dha-- ATAT --panix.com',
1253        undef
1254      ],
1255      [
1256        undef,
1257        'advocacy-- ATAT --p.example.org',
1258        undef
1259      ]
1260    ]
1261  ],
1262  [
1263    '"David H. Adler" <dha-- ATAT --panix.com>, advocacy-- ATAT --p.example.org, perl5-porters-- ATAT --p.example.org',
1264    [
1265      [
1266        '"David H. Adler"',
1267        'dha-- ATAT --panix.com',
1268        undef
1269      ],
1270      [
1271        undef,
1272        'advocacy-- ATAT --p.example.org',
1273        undef
1274      ],
1275      [
1276        undef,
1277        'perl5-porters-- ATAT --p.example.org',
1278        undef
1279      ]
1280    ]
1281  ],
1282  [
1283    '"David H. Adler" <dha-- ATAT --panix.com>,advocacy-- ATAT --p.example.org',
1284    [
1285      [
1286        '"David H. Adler"',
1287        'dha-- ATAT --panix.com',
1288        undef
1289      ],
1290      [
1291        undef,
1292        'advocacy-- ATAT --p.example.org',
1293        undef
1294      ]
1295    ]
1296  ],
1297  [
1298    '"Edwards, Darryl" <Darryl.Edwards-- ATAT --adc.com>',
1299    [
1300      [
1301        '"Edwards, Darryl"',
1302        'Darryl.Edwards-- ATAT --adc.com',
1303        undef
1304      ]
1305    ]
1306  ],
1307  [
1308    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>',
1309    [
1310      [
1311        '"Elaine -HFB- Ashton"',
1312        'elaine-- ATAT --chaos.example.edu',
1313        undef
1314      ]
1315    ]
1316  ],
1317  [
1318    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, "Brent Michalski" <brent-- ATAT --perlguy.net>',
1319    [
1320      [
1321        '"Elaine -HFB- Ashton"',
1322        'elaine-- ATAT --chaos.example.edu',
1323        undef
1324      ],
1325      [
1326        '"Brent Michalski"',
1327        'brent-- ATAT --perlguy.net',
1328        undef
1329      ]
1330    ]
1331  ],
1332  [
1333    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, "Frank Schmuck, CFO" <fschmuck-- ATAT --l.example.org>',
1334    [
1335      [
1336        '"Elaine -HFB- Ashton"',
1337        'elaine-- ATAT --chaos.example.edu',
1338        undef
1339      ],
1340      [
1341        '"Frank Schmuck, CFO"',
1342        'fschmuck-- ATAT --l.example.org',
1343        undef
1344      ]
1345    ]
1346  ],
1347  [
1348    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, "Peter Scott" <Peter-- ATAT --PSDT.com>',
1349    [
1350      [
1351        '"Elaine -HFB- Ashton"',
1352        'elaine-- ATAT --chaos.example.edu',
1353        undef
1354      ],
1355      [
1356        '"Peter Scott"',
1357        'Peter-- ATAT --PSDT.com',
1358        undef
1359      ]
1360    ]
1361  ],
1362  [
1363    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, "Tom Christiansen" <tchrist-- ATAT --chthon.perl.com>, <Ben_Tilly-- ATAT --trepp.com>, "David H. Adler" <dha-- ATAT --panix.com>, <advocacy-- ATAT --p.example.org>',
1364    [
1365      [
1366        '"Elaine -HFB- Ashton"',
1367        'elaine-- ATAT --chaos.example.edu',
1368        undef
1369      ],
1370      [
1371        '"Tom Christiansen"',
1372        'tchrist-- ATAT --chthon.perl.com',
1373        undef
1374      ],
1375      [
1376        undef,
1377        'Ben_Tilly-- ATAT --trepp.com',
1378        undef
1379      ],
1380      [
1381        '"David H. Adler"',
1382        'dha-- ATAT --panix.com',
1383        undef
1384      ],
1385      [
1386        undef,
1387        'advocacy-- ATAT --p.example.org',
1388        undef
1389      ]
1390    ]
1391  ],
1392  [
1393    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, "brian d foy" <tidbit-- ATAT --sri.net>, <advocacy-- ATAT --p.example.org>',
1394    [
1395      [
1396        '"Elaine -HFB- Ashton"',
1397        'elaine-- ATAT --chaos.example.edu',
1398        undef
1399      ],
1400      [
1401        '"brian d foy"',
1402        'tidbit-- ATAT --sri.net',
1403        undef
1404      ],
1405      [
1406        undef,
1407        'advocacy-- ATAT --p.example.org',
1408        undef
1409      ]
1410    ]
1411  ],
1412  [
1413    '"Elaine -HFB- Ashton" <elaine-- ATAT --chaos.example.edu>, <advocacy-- ATAT --p.example.org>',
1414    [
1415      [
1416        '"Elaine -HFB- Ashton"',
1417        'elaine-- ATAT --chaos.example.edu',
1418        undef
1419      ],
1420      [
1421        undef,
1422        'advocacy-- ATAT --p.example.org',
1423        undef
1424      ]
1425    ]
1426  ],
1427  [
1428    '"Frank Schmuck, CFO" <fschmuck-- ATAT --l.example.org>',
1429    [
1430      [
1431        '"Frank Schmuck, CFO"',
1432        'fschmuck-- ATAT --l.example.org',
1433        undef
1434      ]
1435    ]
1436  ],
1437  [
1438    '"Frank Schmuck, CFO" <fschmuck-- ATAT --l.example.org>, "\'abigail-- ATAT --foad.example.biz\'" <abigail-- ATAT --foad.example.biz>, Michael G Schwern <schwern-- ATAT --x.example.com>,  Nicholas Clark <nick-- ATAT --c.example.org>, advocacy-- ATAT --p.example.org',
1439    [
1440      [
1441        '"Frank Schmuck, CFO"',
1442        'fschmuck-- ATAT --l.example.org',
1443        undef
1444      ],
1445      [
1446        '"\'abigail-- ATAT --foad.example.biz\'"',
1447        'abigail-- ATAT --foad.example.biz',
1448        undef
1449      ],
1450      [
1451        'Michael G Schwern',
1452        'schwern-- ATAT --x.example.com',
1453        undef
1454      ],
1455      [
1456        'Nicholas Clark',
1457        'nick-- ATAT --c.example.org',
1458        undef
1459      ],
1460      [
1461        undef,
1462        'advocacy-- ATAT --p.example.org',
1463        undef
1464      ]
1465    ]
1466  ],
1467  [
1468    '"G. Wade Johnson" <gwadej-- ATAT --normal.example.coop>',
1469    [
1470      [
1471        '"G. Wade Johnson"',
1472        'gwadej-- ATAT --normal.example.coop',
1473        undef
1474      ]
1475    ]
1476  ],
1477  [
1478    '"Gabor Szabo" <gabor-- ATAT --trt.example.biz>',
1479    [
1480      [
1481        '"Gabor Szabo"',
1482        'gabor-- ATAT --trt.example.biz',
1483        undef
1484      ]
1485    ]
1486  ],
1487  [
1488    '"Greg Norris (humble visionary genius)" <nextrightmove-- ATAT --bang.example.net>, <advocacy-- ATAT --p.example.org>',
1489    [
1490      [
1491        '"Greg Norris"',
1492        'nextrightmove-- ATAT --bang.example.net',
1493        '(humble visionary genius)'
1494      ],
1495      [
1496        undef,
1497        'advocacy-- ATAT --p.example.org',
1498        undef
1499      ]
1500    ]
1501  ],
1502  [
1503    '"Greg Norris \\(humble visionary genius\\)" <nextrightmove-- ATAT --bang.example.net>',
1504    [
1505      [
1506        '"Greg Norris \\(humble visionary genius\\)"',
1507        'nextrightmove-- ATAT --bang.example.net',
1508        undef
1509      ]
1510    ]
1511  ],
1512  [
1513    '"Greg Norris humble visionary genius\\"" <nextrightmove-- ATAT --bang.example.net>',
1514    [
1515      [
1516        '"Greg Norris humble visionary genius\\""',
1517        'nextrightmove-- ATAT --bang.example.net',
1518        undef
1519      ]
1520    ]
1521  ],
1522  [
1523    '"Helton, Brandon" <bhelton-- ATAT --h.h.example.com>, perl6-language-- ATAT --p.example.org, advocacy-- ATAT --p.example.org',
1524    [
1525      [
1526        '"Helton, Brandon"',
1527        'bhelton-- ATAT --h.h.example.com',
1528        undef
1529      ],
1530      [
1531        undef,
1532        'perl6-language-- ATAT --p.example.org',
1533        undef
1534      ],
1535      [
1536        undef,
1537        'advocacy-- ATAT --p.example.org',
1538        undef
1539      ]
1540    ]
1541  ],
1542  [
1543    '"Jan Dubois" <jand-- ATAT --ExamPle.com>',
1544    [
1545      [
1546        '"Jan Dubois"',
1547        'jand-- ATAT --ExamPle.com',
1548        undef
1549      ]
1550    ]
1551  ],
1552  [
1553    '"Jason W. May" <jasonmay-- ATAT --example.name>',
1554    [
1555      [
1556        '"Jason W. May"',
1557        'jasonmay-- ATAT --example.name',
1558        undef
1559      ]
1560    ]
1561  ],
1562  [
1563    '"Jason W. May" <jmay-- ATAT --x.example.com>',
1564    [
1565      [
1566        '"Jason W. May"',
1567        'jmay-- ATAT --x.example.com',
1568        undef
1569      ]
1570    ]
1571  ],
1572  [
1573    '"Jason W. May" <jmay-- ATAT --x.example.com>, <advocacy-- ATAT --p.example.org>',
1574    [
1575      [
1576        '"Jason W. May"',
1577        'jmay-- ATAT --x.example.com',
1578        undef
1579      ],
1580      [
1581        undef,
1582        'advocacy-- ATAT --p.example.org',
1583        undef
1584      ]
1585    ]
1586  ],
1587  [
1588    'Jason W. May <jmay-- ATAT --x.example.com>',                                   
1589    [                                                                           
1590      [                                                                         
1591        'Jason W. May',                                                         
1592        'jmay-- ATAT --x.example.com',                                             
1593        undef                                                                   
1594      ]                                                                         
1595    ]                                                                           
1596  ],                                                                           
1597  [
1598    '"Jason W. May" <jmay-- ATAT --x.example.com>, advocacy-- ATAT --p.example.org',
1599    [
1600      [
1601        '"Jason W. May"',
1602        'jmay-- ATAT --x.example.com',
1603        undef
1604      ],
1605      [
1606        undef,
1607        'advocacy-- ATAT --p.example.org',
1608        undef
1609      ]
1610    ]
1611  ],
1612  [
1613    'admin+=E6=96=B0=E5=8A=A0=E5=9D=A1_Weblog@test.sxt.example.info',
1614    [
1615      [
1616        undef,
1617        'admin+=E6=96=B0=E5=8A=A0=E5=9D=A1_Weblog-- ATAT --test.sxt.example.info',
1618        undef,
1619      ],
1620    ],
1621  ]
1622);
1623
1624my $tests = 1;
1625$tests += @{ $_->[1] } * 5 for @list;
1626
1627plan tests => $tests;
1628
1629use_ok 'Email::Address::Loose';
1630
1631for (@list) {
1632  $_->[0] =~ s/-- ATAT --/@/g;
1633  my @addrs = Email::Address::Loose->parse($_->[0]);
1634  my @tests =
1635    map { Email::Address::Loose->new(map { $_ ? do {s/-- ATAT --/@/g; $_} : $_ } @$_) }
1636    @{$_->[1]};
1637
1638  foreach (@addrs) {
1639      isa_ok($_, 'Email::Address::Loose');
1640      my $test = shift @tests;
1641      is($_->format,    $test->format, "format: " . $test->format);
1642      is($_->as_string, $test->format, "format: " . $test->format);
1643      is("$_",          $test->format, "stringify: $_");
1644      is($_->name,      $test->name,   "name: " . $test->name);
1645  }
1646}
Note: See TracBrowser for help on using the browser.