SDA Email unittest

sda_email.t

#! /usr/bin/perl

use utf8;
use Test::More;
use Email::Address;

use warnings;
use strict;

my $rcpt;
{
    undef $/;
    $rcpt = <DATA>;
}

ok(Email::Address->parse($rcpt), 'parsed ~100 addresses');

done_testing;

__DATA__
xäx xéx <x.x@x.x>;"x x
(x x x)"
<x.x-x@x.x>;"x x - x (x
x x)" <x@x.x>;"x x (x x
x)" <x.x@x.x>;"x - x
x (x x x)" <x-x@x-x.x>;"x
-x (x.x@x.x)"	<x.x@x.x>;x x x
- x xâx (x.x@x.x)
<x.x@x.x>;x x x x x x
xâx (x x x) <x@x.x>;"x
x-x (x x x)"
<x.x@x.x>;x x - x
<x.x@x.x>;x x
<x@x.x>;"x x - x x"
<x.x@x.x>;x x'x x x xéx
(x@x.x) <x@x.x>;x xèx
<x.x@x.x>;x xéx x
<x@x.x>;"x x x"
<x-x@x.x>;"x x
(x.x@x.x)"
<x.x@x.x>;"x -x x
x (x.x@x.x)"
<x.x@x.x>;"x.x@x.x"
<x.x@x.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;x <x@x.x>;"-
x x (x.x@x.x)"
<x.x@x.x>;"20 x (x@20x.x)"
<x@20x.x>;"20 x (x@20x.x)"
<x@20x.x>;24x-x x xèx
(x.x@x.x)
<x.x@x.x>;"x x x x
(x.x@x.x)" <x.x@x.x>;x
<x@x.x>;"x@x.x"
<x@x.x>;x xéx x
(x.x@x-x.x) <x.x@x-x.x>;x xâx
(x@x-x.x)
<x@x-x.x>;"x_6@x.x"
<x_6@x.x>;"x x
(x.x@x.x)" <x.x@x.x>;"x x -
x (x@x-x.x)" <x@x-x.x>;x
x x x x x xâx
<x@x.x>;x-x xéx x
(x.x@x.x) <x.x@x.x>;"x x
(x@x.x)" <x@x.x>;x x
<x@x.x>;"x x- x
(x@x.x)"	<x@x.x>;x
x <x.x@x.x>;x x x
xâx	<x.x@x.x>;x x x
x	<x.x@x.x>;x x
<x.x-x@x.x>;x x x-x-x -
x	<x.x@x.x>;x x
<x.x@x.x>;"x x x
(x@x.x)" <x@x.x>;x
xâx (x@x.x)
<x@x.x>;"x x"
<x@x.x>;"x x
(x.x@x.x)"
<x.x@x.x>;x xéx
<x.x@x.x>;x-x x
<x.x@x.x>;éx) x x x
(x (x.x@x.x)
<x.x@x.x>;"x@x.x"
<x@x.x>;"x.x@x.x.x"
<x.x@x.x.x>;"x-x x x
(x@x.x)"
<x@x.x>;"x@x.x"
<x@x.x>;x x
<x.x@x2000.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;x-x xèx
<x@x.x>;xéxôx x - x'x-x'x
(x@x.x) <x@x.x>;"x x x
(x@x.x)" <x@x.x>;"x x x
- x x (x@x.x)"
<x@x.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;"x x
(x@x.x)"
<x@x.x>;"x@x.x"
<x@x.x>;"x x x - x x"
<x.x@x.x>;x x - x xé
(x.x@x.x) <x.x@x.x>;"x
x x (x@x.x)"
<x@x.x>;"x x-x
(x.x@x.x)"
<x.x@x.x>;"x x - x
(x.x@x.x)" <x.x@x.x>;x x x
<x.x@x.x>;"x'x-x'x -
x x (x@x.x)"
<x@x.x>;x'x
<x@x.x>;x x
<x.x@x.x>;"x x"
<x.x@x.x>;"x x 20
(x@20x.x)"
<x@20x.x>;"x.x@x.x"
<x.x@x.x>;"x@x.x"
<x@x.x>;"x.x@x.x"
<x.x@x.x>;x - x xüx
(x.x@x.x)
<x.x@x.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;"x-x x- x x"
<x-x.x@x.x>;x xéx
(x-x.x@x2000.x) <x-x.x@x2000.x>;x
x	<x.x@x.x>;x x
<x@x.x>;"x x (x.x@x.x)"
<x.x@x.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;"x@x.x"
<x@x.x>;"x.x@x-x.x"
<x.x@x-x.x>;"x@x.x"
<x@x.x>;x x) xéx x (x
(x@x.x) <x@x.x>;xéx x
(x@x.x)	<x@x.x>;xéx
x
<x@x.x>;"x.x@x.x"
<x.x@x.x>;"x x-x x
(x.x@x.x)"
<x.x@x.x>;"x-x@x.x"
<x-x@x.x>;"x.x@x.x"
<x.x@x.x>;x-x
<x-x@x.x>;"x-x
(x.x@x.x)"
<x.x@x.x>;x x-xçx
<x-x.x@x.x>;x x
<x.x@x.x>;x x
<1x.x@x.x>;"x.x@x.x"
<x.x@x.x>;x xéx
<x.x@x.x>