view release on metacpan or  search on metacpan

t/send.t  view on Meta::CPAN

my $error = "can't prepare executable test script: ";

my $filename = File::Spec->catfile($tempdir, "sendmail");
open FH, ">$filename" or skip "$error$!", 1;

print FH "#!$^X\n" or skip "$error$!", 1;
print FH <DATA>    or skip "$error$!", 1;
close FH           or skip "$error$!", 1;

chmod 0755, $filename;

$e_mail->($filename);

ok(-e "sendmail.log", "we created a sendmail log");

ok(-s "sendmail.log" >= length "$e_mail", "it's at least as big as the input");

__DATA__
my $input = join '', <STDIN>;