mail.t

use Test;
use Email::Simple;
my $nr = "\n\r";
my $nasty = "S: f{$nr}{$nr}";
my $mail = Email::Simple.new($nasty);
my $mail-str = $mail.Str;
if $mail-str.NFC.Str eq $nasty {
    is $mail.Str, $nasty.Str, "Round trip nasty";
    done-testing;
}
else {
    say "\$mail.Str.NFC.Str ne \$nasty\n\$mail.Str equals: $mail-str.perl() ne $nasty.perl()";
}