From: Don Armstrong <don@volo>
Date: Wed, 10 Jan 2007 06:21:54 +0000 (-0800)
Subject: add the sendmail test script which is used by 06_mail_handling.t
X-Git-Tag: release/2.6.0~585^2^2~44
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7a1f0b402b964162216d2411af0e1bee3de5cf06;p=debbugs.git

add the sendmail test script which is used by 06_mail_handling.t
---

diff --git a/t/sendmail_tester b/t/sendmail_tester
new file mode 100755
index 00000000..22f1e4c3
--- /dev/null
+++ b/t/sendmail_tester
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+# All this script does is write whatever is piped to it to a unique
+# filename, with the first line containing the arguments sent.
+
+use IO::File;
+
+# create a unique filename
+if (not -d $ENV{SENDMAIL_TESTDIR}) {
+     system('mkdir','-p',$ENV{SENDMAIL_TESTDIR});
+}
+
+my $fn = "$ENV{SENDMAIL_TESTDIR}/".time.$$;
+
+my $fh = new IO::File $fn ,'w' or die "Unable to open file $fn for writing: $!";
+
+print {$fh} join(' ',map {"'$_'"} @ARGV) or die "Unable to write to file $fn: $!";
+print {$fh} "\n\n";
+print {$fh} <> or die "Unable to write to file $fn: $!";
+
+close $fh or die "Unable to close file $fn: $!";