
=head1 Name

get_recipients

=head1 Ziel

Überprüfen, ob die Funktion get_recipients_from_header() funktioniert.

=cut

use utf8;
use warnings;
use strict;
use warnings;

BEGIN {
    unshift( @INC, ( $ENV{'POPHOME'} || '@POPHOME@' ) . '/lib' )
      unless $ENV{'KUNDE_NO_PERLPATH'};
}

use Test::More tests => 2;
BEGIN { $ENV{DbLocalCf} = 1 }
use Dbase::Test;

$| = 1;

use Loader qw(get_recipients_from_header);

is_deeply(
    [ get_recipients_from_header( <<'_') ],
To: Tester <eins@noris.net>
Cc: "Martin H. Sluka" <zwei@noris.net>, drei@noris.de (Foo Bar)
Bcc: vier@noris.net, eins@noris.net

Das ist der Rand von Ostermundigen.
Cc: test@noris.net
_
    [qw(eins@noris.net zwei@noris.net drei@noris.de vier@noris.net)]
);

is_deeply(
    [ get_recipients_from_header( <<'_') ],
To: Tester <eins@noris.net>
Bcc: vier@noris.net, Eins@noris.net

Das ist der Rand von Ostermundigen.
Cc: test@noris.net
_
    [qw(eins@noris.net vier@noris.net)]
);
