my $emailBody = '...';
my %generatedParams;

# possibly some magic here to associate %generatedParams with %params contents

ok (parseEmail ($emailBody), 'Email parsed without error');

# possibly some magic here to get %params contents into %generatedParams

ok ($generatedParams{to} eq 'to@addr', 'To address generated correctly');
...