testing/perl-mail-sendmail: run test against dummy smtp

the test suite will send an actual email to the atuthor. We don't want
to do that and some of the build servers may have smtp port blocked.

Create a dummy smtp server on localhost and patch test to use that.

1 files changed, 22 insertions, 0 deletions

diff --git a/testing/perl-mail-sendmail/test-localhost.patch b/testing/perl-mail-sendmail/test-localhost.patch
new file mode 100644
index 0000000000..01a199a6c1
--- /dev/null
+++ b/testing/perl-mail-sendmail/test-localhost.patch
@@ -0,0 +1,22 @@
+diff --git a/t/original.t b/t/original.t
+index bba3fa0..2765eba 100755
+--- a/t/original.t
++++ b/t/original.t
+@@ -14,7 +14,8 @@ $mail{To}   = 'Sendmail Test <sendmail@alma.ch>';
+ 
+ # if you want to get a copy of the test mail, you need to specify your
+ # own server here, by name or IP address
+-$server = 'mail.alma.ch';
++$server = '127.0.0.1';
++$port = 2525;
+ #$server = 'my.usual.mail.server';
+ 
+ BEGIN { $| = 1; print "1..2\n"; }
+@@ -42,6 +43,7 @@ print "ok 1\n";
+ 
+ if ($server) {
+     $mail{Smtp} = $server;
++    $mail{Port} = $port;
+     print "Server set to: $server\n";
+ }
+