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, 18 insertions, 0 deletions

diff --git a/testing/perl-mail-sendmail/fake-smtp.py b/testing/perl-mail-sendmail/fake-smtp.py
new file mode 100644
index 0000000000..25929d9b8a
--- /dev/null
+++ b/testing/perl-mail-sendmail/fake-smtp.py
@@ -0,0 +1,18 @@
+import smtpd
+import asyncore
+
+class FakeSMTPServer(smtpd.SMTPServer):
+    """A Fake smtp server"""
+
+    def __init__(*args, **kwargs):
+        smtpd.SMTPServer.__init__(*args, **kwargs)
+
+    def process_message(*args, **kwargs):
+        pass
+
+if __name__ == "__main__":
+    smtp_server = FakeSMTPServer(('127.0.0.1', 2525), None)
+    try:
+        asyncore.loop(timeout=1, count=30)
+    except KeyboardInterrupt:
+        smtp_server.close()