From 84fa53cb3e2eb62d7eadba3ae1a3a81090413e5f Mon Sep 17 00:00:00 2001 From: Natanael Copa Date: Tue, 7 Aug 2018 18:50:54 +0000 Subject: 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. --- testing/perl-mail-sendmail/fake-smtp.py | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 testing/perl-mail-sendmail/fake-smtp.py (limited to 'testing/perl-mail-sendmail/fake-smtp.py') 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() -- cgit v1.2.3